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Le basic étendu offre 

par rapport au TI Basic 

40 commandes, fonctions et 
instructions complémentaires. 


L'extension mémoire ram 32 K 
permet de charger et exécuter 
des sous-programmes en 
assembleurs. La mémoire 32 K 
est indispensable pour 

une bonne utilisation 

du basic étendu. 


A VOS CONSOLES TI 99/4 
BASIC ETENDU DISPONIBLE 








Le basic étendu avec manuel en 
français - garantie 1 an 
Extension mémoire extérieure 
32 K- garantie 1 an 

Interface parallèle pour 
imprimante type SEIKOCHA ou 
EPSON garantie 1 an, l'unité 
Interface parallèle série RS 232 
pour BROTHER EP44 garantie 

1 an, l'unité 























Participation aux frais d'envoi 30 F 


Demander la liste des produits disponibles 
pour le TI 99/4 


LA REGLE A CALCUL. 


65/67, bd St-Germain, 75005 PARIS - Tél. : 325.68.88 
Télex ETRAV 220064 F/1303 RAC 
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Des cassettes et disquettes pour le 


TI-99/4A 


Les cassettes 


Nous vous rappelons brièvement le 
contenu des cassettes A àE: 


Cassette 99A 


Basic TI: 
Electronique 
Mineur 

Basic Etendu : 
Prêt 


Cassette 99B 
Basic TI : 
Yathzee 
Division 


Basic Etendu : 
Chardef 


Cassette 99C 


Basic TI : 


Division 
Course 


Basic Etendu : 
Dames 

Nim 

Isola 

Schmoo 


Cassette 99D 


Basic TI : 
Caractérologie 
Car Driver 


Cannibales 
Basic Etendu : 


Conjugaisons 
Poker 


Cassette 99E 


Basic TI : 
Mic-Math 

Course de chevaux 
Jeu de poursuite 
Jeu de dés 

Basic Etendu 
Guerre atomique 


(2 )macazne 


O 99 A : Mineur, Prêt, Electronique 

O 998B : Yahtzee, Chardef, Division, Régression linéaire 

D 99 C : Dames, Nim, Division 2, Isola, Schmoo, Robots 

DO 990D:Conjugaisons, Caractérologie, Car Driver, Poker, Cannibales 

O 99E :Mic-Math, Course de chevaux, Poursuite, Jeu de dés, Guerre 
atomique, Course en ligne droite 

O Cassette “Mastermind" 

D Disquette "Mastermind" (cf. 99 Magazine n° 3) 

O Disquette "Routine graphiques" (cf. n° 4,5,6 et 7) 

O Disquette "Désassembleur” (cf. n° 5) 

O Disquette "Galaxia" (cf. n°7) 


Course en ligne droite 


Cassette Mastermind 


Cette nouvelle cassette est une 
réponse à de nombreux lecteurs 
désirant utiliser le Mastermind publié 
dans le numéro 3 de “99 Magazine”, 
avec uniquement la Mini-mémoire. I] 
s'agit donc d'une version modifiée du 
programme original, afin qu'il “tienne” 
dans les quatre Ko de la Mini-mémoire. 
Ce programme se charge très 
simplement avec l'option “L' d'EASY 
BUG. 


Les disquettes 


En plus des disquettes “Mastermind”, 
“Désassembleur” et ‘“Routines Gra- 
phiques”, nous vous proposons cette 
fois une disquette "Galaxia” contenant 
le source publié dans ce numéro, un 
code objet utilisable avec l'éditeur/ 
assembleur et la Mini-mémoire et un 
code objet fonctionnant avec le module 
"Basic Etendu”. 


BON DE COMMANDE 


50 F TTC 
50 F TTC 
50 F TTC 
90 F TTC 
50 F TTC 


50 F TTC 
SF TE 
S5F TIC 
SEAT 


Ces tarifs comprennent l'envoi postal en France Métropolitaine et CEE (voie aérienne exceptée) 


Envoi par avion : + 10F 


Envoyez ce.bon de commande et votre règlement à : 


Editions MEV - 64-70, rue des Chantiers - 78000 Versailles 
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Editorial 


Cette fois encore, Fdouard Krok nous propose Un de 5e5s excellents 
programmes en Basic TI. /1 s'agit d'un jeu de cartes dans lequel le TI peut 
tenir le rôle de trois joueurs Georges Goument 5est chargé de 
l'écriture d'un autre jeu qu'il a baptisé ‘5rand” 


Les tableurs étant trés à la mode, Sophie Fhster nous donne Son avis SUT 
T/-Calc, alors que Gérard Santraïlle, toujours très attaché au Pascal, 
dévoile les secrets dela compilation séparée et des bib/jothèques. 


Les amateurs d'assembieur auront de quoi occuper les trois mois nous 
séparant du prochain numéro puisque Jean-Luc Bazanegue propose une 
routine de codage et sauvegarde des images graphiques en haute 
résolution, fort attendue par les utilisateurs des routines graphiques. 
Dans un tout autre registre, maïs toujours en a5sembleur, vous trouverez 
aussi ‘Galaxia’, écrit par Pierre Marcellin, qui est Un programme 
inspiré de T/-/nvaders maïs, à notre avis, largement supérieur. En outre, 
Denise Amrouche s'est penché sur le problème des jeux d'aventure et 3 
découvert le moyen de connaître leurs contenus. 


Michel Schurmans reprend la rubrique Logo, ce. qui fera certainement 
plaisir aux fanatiques de ce langage puisque nous le5 avions quelque peu 
délaïssés dans le précédent numéro. Le même auteur offre aussi Un 
programme de copie d'écran aux utilisateurs d'imprimantes SerKo5Shàa 
GP250. 


Après nous avoir indiqué comment accéder aux registres vidéo à partir du 
Basic T/, Gérard Baronï et Jean Marin donnent /a méthode pour utiliser 
Je mode Bit-Map de la même manïère. Ceux d'entre-vous qui désiraïent 
employer les routines graphiques depuis /e Basic £Etendgu pourront 
désormaïs le faire puisque Marianne Sutz 2 effectué les modifications 
nécessaires. 


Enfin, ‘Music Box Dancer', de Jacques Mercier et ‘Dessinez avec le 
Basic Etendy', de Georges Herbepin, bouclent ce numéro qui, vous 
pouvez le constater, contient de quoi occuper vos loisirs informatiques 
pendant un certain temps. 


Nous vous souhaïtons une excellente année 1985, pleine de programmes 
et, 51 possible, 5ans bUgS ! 


Hervé Thiriez 


Rédacteur en chef-Directeur de la publication : Hervé Thiriez. Comité de 
rédaction : Jean-Luc Bazanegue, Gérard Santraille. Dessins : Laurent Bidot. Ont 
collaboré à ce numéro : Denise Amrouche, Gérard Baroni, Jean-Luc Bazaneqgue, 
Alexandre Duback, Sophie Ehster, Georges Goument, Georges Herbepin, Edouard Krok, 
Pierre Marcellin, Jean Marin, Jacques Mercier, Gérard Santraille, Michel Schurmans, 
Marianne Sutz. 

Editions MEV - 64-70, rue des chantiers - 78000 Versailles. 


Régie publicitaire : Force 7 - Anne Jourdan - 5, Place du Colonel Fabien - 75010 
Paris - Tél. : 240.22.01. 

Impression : S.NE. Repro-Versailles - 21, rue Danièle Casanova - 78210 St Cyr l'école 
- Tél. : 460.38.80. 
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Lun 


La Défausse 
Edouard Krok 


NDLR : nos lecteurs munis de 
lecteurs de disquettes devront 
utiliser /3 commande "CALL FILES 
(1)" suivie de ‘NEW, avant de 
charger ce Programme en 
mémoire. 


La défausse est un jeu de cartes 
simple et original, écrit en Basic TI, 
qui se pratique avec un jeu de 52 
cartes (plusieurs jeux de 52 cartes si 
on joue à 4). Chaque participant reçoit 
sept cartes au début de la première 
manche, quatre cartes à la seconde, 
puis une seule carte à la troisième; 
ensuite, on recommence à sept, et 
ainsi de suite. 


Chacun, à son tour, pose une carte qui 
doit être de la couleur demandée 
(cœur, pique, carreau ou trèfle) où un 
valet (le valet remplace n'importe 
quelle carte) où une carte quelconque 
qui soit de la même valeur que la carte 
de jeu (on peut, par exemple, poser un 
sept de pique si la carte de jeu est un 
sept de cœur). Dans ces deux derniers 
cas, on a la possibilité de demander la 
couleur de son choix. 


10 REM ##XER4<HrEEXEELREXREEEX 
20, REM :# LA DEFAUSSE * 
30 REM #X#XRLEHEEREEEEEEEXX 
40 REM +* BASIC TI æ 
S0 REM hX#XEXERXEEEÉEXEEXX 
60 REM * + 
70 REM * Edouard KROK * 
80 REM * x 
0 REM #YHEEEEEESERREREEEX 
100 RANDOMIZE 


110 DIM MC3,1,5),M8C3) ,J8(3),SC(3) 


120 DEF LV=J#4+i-(J)>1)x%8 


130 DEF H(X#)=ABS(S+((J=1)+(J=3) )x33+3*xP0 


S(MECJD,X$,1)) 
140 DEF CL=INT((CRTE-1)/13) 
150 DEF UL=CRTE-CL*13 

160 
1) 


170 CALL 


DEF PT=-ULx(UL<11)-SO0O#(UVL=11)-5#(UL)D1 


CHAR(S8,"00266747272726") 


Si un joueur ne peut poser aucune 
carte, il doit en piocher une dans le 
talon. S'il lui est impossible de jouer 
la carte piochée, il passe son tour. Le 
premier joueur qui n'a plus de carte 
gagne la première manche et 
s'approprie les points des cartes qui 
restent à tous ses adversaires. 


Le joueur dont le score est égal ou 
supérieur à 60 points gagne la partie. 
Habituellement, on joue plusieurs 
parties; le vainqueur sera bien sûr 
celui qui aura remporté le plus grand 
nombre de parties et, en cas d'égalité, 
celui qui aura cumulé le plus grand 
nombre de points. 


Vous avez la possibilité d'utiliser à 
votre guise les deux poignées de jeu ou 
le clavier : vous déplacez le curseur 
sous la carte que vous voulez jouer à 
l'aide des touches fléchées (S et D), 
puis vous appuyez sur "ENTER". 

Pour piocher une carte, vous devrez 
amener le curseur sous vos initiales, 
puis appuyer sur "ENTER" et procéder 
de la même façon pour passer le 
contrôle au joueur suivant, dans le cas 


où vous ne pouvez pas jouer la carte 
piochée. 


Le programme accepte deux, trois ou 
quatre joueurs et l'ordinateur peut en 
remplacer un ou plusieurs. On peut 
aussi lui demander de jouer contre 
lui-même. Dans tous les cas, sa 
stratégie élaborée en fait un 
adversaire qu'il ne sera pas toujours 
facile de vaincre. 


Si vous voulez rendre le jeu encore 
plus passionnant, choisissez l'option 
"jeu fermé”; vous ne verrez plus le jeu 
de l'ordinateur (il vous faudra le 
déduire d'après ses demandes) et vous 
ne pourrez voir le jeu de vos 
adversaires humains qu'au moment où 
ceux-ci doivent jouer. Ce sera plus 
difficile, mais aussi plus intéressant. 


Valeurs des cartes 


e 1 à 10 = leur valeur respective; 
e Dame, roi = cingpoints; 
e Valet = cinquante points. 


270 CALL CHAR(145S,"O0FC7E377EFC") 

300 CALL CHAR(146,"00103287CFE38386C") 

310 CALL CHAR(147,"000103070FO0F0E") 

320 CALL CHAR(148,"0080CO0E0FOFO7") 

330 FOR I=1 TO S5 

340 CÂALL COLOR(?+I ,VAL(SEGS("0714100705", 


1x*2-1,2)),16) 
350 NEXT I! 


360 CALL COLOR(14,5,16) 
370 CALL COLOR(15,5,1) 


370 CALL 
400 CALL 
410 CALL 


380 GOSUB 4110 

CLEAR 

SCREEN( 16) 
HCHAR(11,3,145,29) 


420 CALL VCHAR(4,31,146,7) 


430 CÂALL 


HCHAR(3,3,144,29) 
440 CALL VCHAR(4,3,146,7) 


450 FOR I=1 TO 21 


460 CÂALL HCHAR(7,6+I,ASC(SEG#$("L À 


180 
170 
200 
210 
220 
230 
240 


CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
250 CALL 
260 CÂALL 
270 CALL 
230 CALL 


CHAR(S9,"S828282444428281") 
CHAR(SO ,"3824222222222438") 
CHAR(é1,"3C2222223C282422") 
CHARCé2,"") 
CHAR(é4,"00181800001818") 
CHAR(110,"44EEFEFEFE7C381") 
CHâR(118,"3S810D6FEFE7C381") 
CHAR(126,"193C7EFFFF7E3C18") 
CHAPR(134,"3838D6éFED610387C") 
CHAR(140,"9933é6éCC77336éCC") 
CHAR(1494,"003F7EEC7E3F") 


FAU-SSE",I,1))) 

470 NEXT I! 

480 W=110 

490 FOR C=4 TO 26 STEP 4 

500 FOR L=0 TO 2 

510 W=W+8+(W=134) #32 

520 CALL HCHAR(14+4%L,C+3%L ,W) 
530 NEXT L 

540 NEXT C 

550 GOSUB 4880 
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520 
560 
570 
980 
570 
600 


GOSUR 488590 
X#$="APPUYEZ SUR 
PRINT TAR(CS) ,X8 
CALL KEY(3,K,S) 
IF K<)13 THEN S80 
CALL SCREEN(2) 
610 PRINT "UQUS DEVEZ JOUER UNE CARTE 
LA COULEUR DEMANDEE OÙ UNVALET OÙ UNE 
CARTE DE MEME" 
620 PRINT "UALEUR QUE LA CARTE DE JEU.":: 
"DANS CES 2 DERNIERS CAS":"VOUS DEMANDE 
Z LA COULEUR":"DE VOTRE CHOIX." 
630 PRINT :"VOUS POUVEZ UTILISER LES":"MA 
NETTES QU LE CLAVIER a"::"DEPLACEMENT P 
AR TOUCHES S ET" 
640 PRINT "D, PUIS ";xX#::"SI VOUS NE POUV 
EZ JOUER VOUSDEVEZ PIOCHER UNE CARTE DA 
NS" 
650 
EUR 
660 
670 
6&0 
690 


““ ENTER" " » " 


DE 


PRINT "LE TALON EN AMENANT LE" :"POINT 

SOUS VOS INITIALES."::::TAR(CS)D;X$ 
CALL SCREEN(11) 

CALL KEY(3,K,5S) 

IF K<)>13 THEN 670 

CALL SCREEN(2) 

700 PRINT "LE PREMIER JOUEUR QUI N’A"::"P 
LUS DE CARTE GAGNE LES'"::"POINTS DES CA 
RTES QUI":: 

710 PRINT "RESTENT À SES ADVERSAIRES 
"VALEUR DES CARTES a"::" 1 à 10 à LEU 
R VALEUR" :TABR(197) :; "RESFECTIVE":: 

720 PRINT " DAME, ROI ® 5 POINTS"::" 
VALET à SQ POINTS."::"UNE PARTIE SE JOU 
E"::"EN 60 POINTS.":::TABC4)D:X$ 

730 CALL SCREEN(13) 

740 CALL KEY(3,K,5S) 

750 IF K<>13 THEN 740 

760 REM rejouer avec des 

770 REM joueurs differents 

780 CALL SOUND(400,600,46) 

750 FOR I=Q0 TO 3 

800 J$CI1)="" 

810 NEXT I 

820 CALL CLEAR 

830 PRINT "JEU OUVERT OÙ FERME 7? <O/F)" 
840 CALL SOUND(200,800 ,4): 

850 CALL HCHAR(223,30 ,63) 

840 CALL KEY(3,K,9S) 

870 IF S=0Q0 THEN 840 

880 CALL SOUND(100,-5,4) 

8570 CALL HCHAR(23,30 ,K) 

$00 l=0 

710 IF K=79 THEN 740 

720 l=1 

730 IF K<>70 THEN 850 

540 PRINT 

S'ASTETES, VOUS, Pia TABEPYENC À a. » ? 
F50 CALL SOUND(200,800 ,4) 
S60 CALL KEYC3,X,S) 

770 IF (X<4&)+(X)>52Z) THEN 
980 CALL SOUND(100,-5,6) 
S70 CALL-HCHAR(Z3,22,X) 
1000 IF X=52 THEN 1150 
1010 PRINT ::::"COMBIEN DE 

2's:3:"VOUS QUE JE SIMULE 7": 
a > +? 

1020 K=100-X 

1030 CALL HCHAR(23,17,K) 
1040 CALL SOUND(200,800 ,4) 
1050 CALL KEY(3,Y,5) 

10460 IF (Y<48)+(YD)>K)THEN 1050 
1070 CALL SOUND(100,-5,64) 


760 


JOUEURS DESIRE 
:TAB(9);"C 0 
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1020 
1050 
1190 
1110 
1120 
1130 
AB(8 
1140 
1150 
1160 
1170 
1180 


1230 
1240 
1250 
1260 
1270 
1280 
12970 
1300 
1310 
1320 

00 
1330 
1340 
1350 


"TI"&CHRS(PÉé+I DR" 


1360 
1370 
1380 
1390 
iaaa 
1410 
1420 
1430 
1440 
1450 
144û 
)#7, 
1470 
1480 
1450 
1500 

JEU 
1510 
1520 
1530 
1540 
1550 
15460 
1570 
1580 
1570 
1400 
1610 
1420 
1630 
1490 
1650 
1640 
1670 
1680 
165û 
1700 
1710 
1720 
1730 


CALL HCHAR(23,22,Y) 

JC=X+Y 4100 

IF X+Y=94 THEN 40890 

IF X+Y>97 THEN 1150 

CALL CLEAR 

PRINT " IL N’EST PAS POSSIBLE":: 
>);"DE JOUER SEUL !" 

“GOTO 940 
GOSUB 4880 
CALL CLEAR 
IF X=48 THEN 
PRINT " 


1170 
INSCRIVEZ VOS INITIALES d'":: 


CALL SOUND(400,4û0,46) 
X=xX-48 
Y=Y-48 
FOR I=1 TO X 
FOR J=1 TO 2 
CALL KEY(C3,K,S) 
IF S<i THEN 1240 
IF (K<65)+(K>70)THEN 1240 
CALL SOUND(100,-5,7) 
CALL HCHAR(16+2%1,15+J,K) 
S=VAL(SEG+("3120",1,1)) 
JHCS)=JH(S)LCHRECK) 
NEXT J 
JCS)=CHR#(1-2#UECX>1))&J8C SDL" "2" 
[el " 
NEXT I 
FOR I=1 TO Y 
JÆCVALCSEG+S("0213",1,1)))=CHRS#&C1+U)& 
000 
NEXT I 
GOSUB 4880 
REM rejouer autre partie 
REM memes joueurs 
CALL CLEAR 
CALL COLOR(3,2,146) 
CALL COLOR(4,2,16) 
FOR J=0 TO 3 
IF J$Cd)="" 
FOR I1=1 TO 3 
CALL HCHARÇCU,HC"X"D+1+2+#+CCJ=0)+(J=2) 
ASCCSEG#CJSCJ),1+1,19)) 
NEXT I 
NEXT J 
FOR I=i TO 27 
CALL HCHAR(10,3+1 ,4ASC(SEG$( "DEMANDE 
TALON MANCHE" ,1,1))) 
NEXT I 
CALL VCHAR(12,20,140,3) 
CALL VCHAR(12,21,140,3) 
MCH=0Q 
REM debut de manche 
FOR L=12 TO 14 
CALL HCHAR(L,1,32,15) 
NEXT L 
FOR L=Q TO 1 
FOR C=2 TO 1 
FOR UWU=i TO 3 
CALL HCHBRUI+L#I4-4#(C=1) ,4#C,32,23) 
NEXT 
NEXT C 
MEXT L 
MCH=MCH+1 
CALL HCHAR(13,27,48+MCH) 
PRI$="" 
REM distribution des cartes 
FOR I=1 TQ 10-MCH#2+SxINT(MCH/3,.1) 
FOR J=0 TO 3 
IF J#(J)="" THEN 177 
X=-5+1#C ASC CJ#( J))=1) 


THEN 1480 


SIEP 1 





GÜSUB 4520 
=! 
GOSUB 4780 
NEXT I] 
X=0 
GOSUE 4520 
DEM=CL 
DULEUL 
CALL HCHAR(13,7,110+8%»CL) 
REM debut de chaque tour 
FOR J=û TO 3 
P=û 
IF J&(J)="" THEN 2530 
X=(J=1)+(J=3) 
CALL HOCHAREU +1 ,4-24#X,1454+%,3) 
IF POSCJ#(JI) "a" ,.1)=0 THEN 2350 
IF ASCSJ#(JI))€3 THEN 1990 
FOR I=zi TO 8 
X8=SEGS(MSCU) 1,1) 
IF X$="X" THEN 1970 
CRTE=ASCIXS) 
GISUR 4630 
MNEXT I 
FEM jeu des 
X=Q 
=Z22+(JI/2=INT( J/2))#11 
C=C+X/4%3 
CALL HCHAR(U4#+3,1,32,32) 
CALL SOUND(100,1000 ,4) 
CALL HCHAR(U+3,C,147) 
CALL HCHAR(U4+3,C+1,148) 
FOR I=i TO Z 
CALL KEY(I,K,S) 
IF K=18 THEN 2200 
CALL JOYST(I,X,S) 
IF X THEN Z1950Q 
MEXT I 
120 CALL KEY(2,K,5S) 
IF-S=0 THEN 2040 
IF K=13 THEN 2700 
X=4 
2160 IF K=68 THEN 2170 
2170 Xx=-4 
2128G IF K<>22 THEN 2040 
2170 IF (X=4)#(C)>27)+(X=-4)#(C<4)THEN 204 
Q ELSE 2010 
2200 CALL SOUNDC300,-4,4) 
2210 CALL HCHAR(U+3,1,232,22) 
2220 IF (C<)5)#(C<)280) THEN 22950 
2230 IF (M(J,0,5)=8)-P THEN 3430 
2240 *x=1] 
2250 GÜSUE 4520 
2240 GOSUE 4780 
P=1 
GOTO 1970 
X=(J=()+(J=2) 
CRTE=ASC(SEGS(MBCJ) ,ARSC(C-5)#xX/34 (2 
#(X=0)/23),1)) 
IF CCRTE=88S)+(UL<)11)#CUL<)DUL)DE#CCL< 
)THENH 19970 
DEM=CL 
GOTO 2290 
FEM jeu et strategie TI 
POSS=-2#(MCJ,0,DEM)>0)-4#x(M(J,0,4)>0 
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CALL SOLIDC200,700,5) 
FOP I1=0 TO 3 
IF PFOSCMECJ) ,CHR&CI#12+DU0L) ,1)=0 THE 


NO NI FO = FI FOND PO + 


Lt da) di 


on 1 
on & 
a 
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RENE NUM NON 
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FJ 


MEXT I! 

IF POSS THEN 2510 

IF (M(J,0,5)=8)-P THEN 23430 
CALL SOUND(200,250 ,6) 
X=-4+(ASCCJECJ))=2) 

GOSUB 4520 

X=1 

GOSUB 4780 

P=1 

GOTO 2350 

FOR I1=1 TO 2 

FOR W=0 TO 3 

IF M(U,0,5)=1 THEN 2560 

NEXT 

NEXT I! 

PERD=0 

GOTO 2600 

PERD=1 

IF MéJ,0,5)€=] THEN 2540 

IF (POSS>S)#PERD THEN 2740 

ON POSS-1 GOTO 24620,27460,2740,2080,2 
760,32767,2090 

FOR 1=10 TO 1 STEP -1 

IF 1)4 THEN 2680 
X=POSCME CI) ,CHR$S(DEMX13+12) ,1) 
IF X THEN 2710 
X=POSCME CI) , CHR#CDEMX1 3413) ,1) 
IF X THEN 2710 
X=POS(ME CI) ,CHR#$CDEM%13+41) ,1) 
IF X THEN 2710 

NEXT 1 
CRTE=ASC(SEGS (ME CI) ,X,13) 
DEM=CL 

GOTO 3290 

X=11 
GOTO 
X=DUL 
FOR I=0 TO 3 

Y=POS(MECJ) ,CHRSCI#134X) ,1) 
IF Y THEN 2810 

NEXT I : 
CRTE=ASC(SEGS (MB CI) ,Y,1)) 

IF PERD=0 THEN 2130 

K=CRTE 

X#="" 

FOR X=0 TO 3 

IF MCX,0,5)2>2 THEN 2720 

FOR W=1 TO & 
CRTE=ASC(SEGS (MB CX) ,W, 13) 

IF CRTE=88 THEN 2510 
XE=X#ESTRE( CL) 

NEXT U 

NEXT X 

FOR U=i TO 8 
CRTE=ASC(SEGS(M#(CJ) ,W,1) 

IF (CRTE=88)-POS(X#,STR#(CL) , 1) THEN 


7rû 


DEM=CL 

GOTO 3040 

NEXT U 

FOR 1=0 TO 3 

IF. POSCX#,STR8SCI1) ,1) THEN 2030 
DEM=1 

GOTO 3060 
NEXT I 
CRTE=K 

GOTO 3130 
CRTE=K 

GOTO 3290 

IF PERD THEN 
FOR K=0 TO 3 


Z760 
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3100 
120 

3110 
3120 
3130 
3140 
3150 
2160 
2170 
3180 
2190 
3200 
3210 
3220 
3230 
3240 
3250 
2260 


IF POS(M#(CJ) ,CHRS(13#K+DUL) ,1) THEN 3 


NEXT K 

CRTE=K%1 3+DUL 

K=Q 

FOR C=0 TO 3 

X=M(J,0,0C)+CCL=C) 

IF X<=K THEN 3180 

K=X 

NEXT C 

S=û 

FOR C=Q0 TO 3 
X=MCJ,1,C)+(CCL=C)#PT 

IF (MCJ,0,C)<K)+CX<S)THEN 3250 
U=C 

S= 

MNEXT C 

IF € €CUW=DEM) #(POSS=S) ) + ((W=DEM) #(POSS 


=9))THEN 2620 


3270 
3280 
32970 
3300 
3310 
3320 
33530 


2340 


DEM=U 

REM carte jouee 

XS=CHRE(CRTE) 

CALL VUCHARÇCU,HIX#),32,3) 

CALL LVCHARCU,HCX#) +1,32,3) 

GOSUB 4440 

X=POS(MSCJI) ,X$,1) 

MBCJ)=SEGS(MSCJ) ,1,X-1)8&"X"RSEGE(ME( 


J),X+1,8) 


3350 


IF CUL<)11)#CUL<)}DUL)-CPOSCJECJ) ," a" 


,12=0)-(M(J,0,5)=0)THEN 3370 
L 


3360 
3370 
3380 
3390 
3400 
3410 
34290 
3430 
3440 
3450 
3460 
3470 
3480 
3490 
3500 
3510 
35290 
3530 
3540 
3550 
3Sé0 
3570 
3580 
3590 
3400 
3610 
3620 
23630 


GOSUB 4170 

IF DEM<4 THEN 23970 
DEM=INT € 4%RND) 

CALL HCHAR(13,7,110+DEMx8) 
DUL=EUL 

X=-1 

GOSUR 4780 

X=(J=1)+(J=3) 

CALL HCHAR(U+1,4-24#X,22,3) 
IF MCJ,0,5)=0 THEN 3560 

IF ASCCJ#(CJ))<3 THEN 3530 
X=-5 

FÜR 1=1 TO 8 
XHS=SEGE(MSCJ),1,1) 

IF X#£="X" THEN 3520 

GOSUB 4630 

NEXT I 

NEXT J 

GOTO 185û 

REM manche qagnee 

GOSUR 4880 

FOR W=0 TO 3 
SCCJ)=SCCI)+MCU,1,5) 

NEXT W 

XB=STRE(ECCJ)D) 
X=(J=0)+(J=2) 

FOR W=i TQ LENCX#) 

CALL HCHAR(U+2,27+X#24+W,ASCCSEGSCXS 


W,123) 


2640 
34650 
3660 
3670 
3680 
3690 
37090 
3710 
3720 
3730 
3740 
3750 
3760 


NEXT W 

GOSUB 4110 
FOR J=0 TO 3 
FOR K=0 TO 1! 
FOR W=0 TO 5 
MCJ,K,W)=0 
NEXT 

NEXT K 

NEXT J 

FOR J=0 TO 3 
IF SC(J)>59 THEN 3780 
NEXT J 

GOTO 15460 
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X= " 


REM partie gagnee 

JHCJI)=JH JL" x" 

FOR J=0 TO 3 

IF J$CJ)="" THEN 3870 
XE=STRECUAL(SEGS(JÉECJI),5,46))+SCCJ)) 
FOR K=LEN(X#)TO 5 

"&XE 


NEXT K 
J&CJ)=SEGSCJSCI) ,1,4)8RXELSEGFCJBCU), 


© SCCJ)=0 


NEXT J 

CALL CLEAR 

CALL COLOR(3,2,1) 

CALL COLOR(4,2,1) 

FOR J=0 TO 3 

IF J$(J)="" THEN 3940 

FOR K=1 TO LENCJ#(J)) 

CALL HCHAR(4+J#3,8+K,ASC(SEGS(J#(J), 


K,133) 


3950 
3760 
3970 
3980 
3770 
4000 


JOUEURS 


aoi 


NEXT K 

NEXT J 

GOSUB 4880 

GOSUB 4820 

FOR K=1 TO 14 

CALL HCHAR(20,8+K,ASCCSEG#("M_MEMES 
",K,133) 

CALL HCHAR(22,8+K,ASCCSEG$("A_ AUTRES 


JOUEURS" ,K,13)) 


4020 
ER 

4030 
4040 
4050 
4040 
aû7û 
a08û 
4090 


282: TAB(9) 3; "ET À BIENTOT':::" 


4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
a1e0 
41970 
4200 
4210 
4220 
4230 
4240 
4250 
4260 
4270 
4280 
4290 
a30û 
4310 
4320 
4330 
434û 
4350 
4360 
4370 
4380 
4390 
4aûû 
4410 


CALL HCHAR(24,8+K,ASCCSEG#("T_TERMIN 
",K,1299 

NEXT K 

CALL KEY(3,K,5) 

IF K=77 THEN 1400 

IF K=65 THEN 780 

IF K<>84 THEN 4040 

CALL SCREEN(1) 

PRINT :12:2:TAB(10);"AU REVOIR":: 

POUR UN 


END 

FOR 1=0 TO 3 

M$CI1)="" 

FOR UW=i TO 5 
M#CID=M#CID&"X" 

NEXT U 

NEXT I 

RETURN 

REM choix demande 
IF MC(J,0,5)=1 THEN 4450 
X=0 

C=8 

CALL HCHAR(13,7,32) 
FOR K=1i TO 4 

CALL HCHAR(13,Z+Kx2,102+Kx8) 
NEXT K 

CALL SOUND(300,600,4) 
C=C+X/4x2 : 

CALL HCHAR(19,4,32,7) 
CALL SOUND(1090,250,5) 
CALL HCHAR(14,C,144) 
FOR I=i TO 2 

CALL KEY(CI,K,9S) 

IF K=18 THEN 4450 
CALL JOYST(I,X,S) 

IF X THEN 444û 

NEXT I 

CALL KEY{3,K,S) 

IF S=Q0 THEN 4310 

IF K=13 THEN 4450 

X=4 

IF K=68 THEN 4440 





4420 x=-4 
4420 IF K<ÈI83 THEN 4310 


33940 IF (X=4)#(C=10)+(X=-4)#(C=4) THEN 4531 


0 ELSE 420 


4450 CALL SOUND(ZO0,S500,8,800 , 6) 


4460 DEM=(C-2)/2-1 
4470 CALL HCHAR(1S,4,53 
4480 CALL HCHÉR(14,4,3 
93970 RETURN 

4500 REM 
9510 REM 


Dé 
2,7 
à 7 
RAR 


d'une carte 


SEO XE=CHRECINTÉSZERND+1)) 
IF POSCPRIS,X$,1)xJC THEN 4520 
IF LEN(PRIS)<{4é THEN 45Sét 


4530 
4540 
4550 PRI$="" 

4560 FRIS=FRISEXS 

4570 CRTE=ASC(XS) 

4560 IF X=0 THEN 4640 
4590 W=POS(M#CJD ,"X",1) 
4600 C=HC"X") 


4610 MECJI)=SEGS(MSCU) ,1 ,U-1)&XERLSEGSÉCMECJ 


> ,W+1,8) 
4620 GOTO 4640 
4630 C=H(X#) 

4640 L=V 

4650 GOTO 4680 
4660 L=12 

4670 C=14 

4680 FOR W=0 TO 1! 


Le tableur TI- 


Sopme Ehster 


TI-CALC est un tableur produit par 
DON DOUGLAS (Londres) et destiné à 
notre TI-99. Il se présente sous la 
forme d'un module enfichable et peut 
travailler avec la configuration 
minimale (console seule et lecteur de 
cassettes pour sauvegarder les 
tableaux). Notons que ce logiciel 
reconnaît l'extension 32K (ce n'est pas 
le cas du module Gestion de Fichiers) 
et permet ainsi de travailler sur 
d'assez grands volumes d'informations. 
Pour un prix somme toute modique 
(375 francs à La Régle à Ca/cu/), on 
dispose d'un outil extrêmement 
puissant qui, par certains aspects, 
soutient la comparaison avec 
Multip/an (tableur concu par 
Microsoft dont on trouve encore 
quelques modules épars). 

Rappelons brièvement ce qu'est un 
tableur et quelles sont ses principales 
applications. 

Un tableur est un programme capable 
de gérer un énorme tableau (96 
colonnes et 248 lignes pour TI-CALC) 
dont on peut définir chaque cellule 
indépendamment ou relativement à 
d'autres. Un exemple très simple 
consiste à définir une case de ce 
tableau comme égale à la moyenne de 


tirage et affichage 


4490 CALL VUCHAR(L,C+W,62-78*x(X=-5) ,3) 


4700 NEXT W 
4710 
4720 FOR W=û 


IF X=-5 THEN 4760 
F9 1 
4730 CALL HCHAR(L+LU#2,C+4,110+CL#8) 


4740 CALL HCHAR(L+UXZ,C+1-W,48+UL) 


4750 NEXT WU 
4760 RETURN 
4770 REM 
4780 


mise à jour de 


IF UL=11 THEN 4820 


Ta main 


4790 M(J,0,CL)=MCI,0,CL)+X 
4800 MCJ,1,CL)=MCJ,1,CL)+XxPT 


4810 GOTO 4840 
4820 M(J,0,4)=M(J,0,4)+X 


4830 M(J,1,4)=M(J,1,4)+X%50 
4840 M(J,0,5)=MCJ,0,5)+X 
4850 MCJ,1,5)=MCJ,1,5)+X%PT 


4860 RETURN 
4870 REM 


accompagnement musical 


4880 CALL SOUND(200,478,5) 


4850 CALL SOLUND(200,784,5) 


4700 CALL SOUNDC200,820,5) 
4710 CALL SOUND(400,588,5) 
4720 CALL SOUND(200,588,5) 
730 CALL SOUND(400,588,5) 
4540 CALL SOUND(200,1175,5) 
4750 CALL SOUND(S00,788,5) 
4560 CALL SOUND(S00,111,30) 


4970 RETURN 


Calc 


toutes les cellules d'une ligne. Les 
formules qui lient les cellules 
entre-elles peuvent être extrêmement 
complexes et faire intervenir des 
tests. 


Le tableur est l'outil de décision par 
excellence. À partir d'un modèle réel 
(formules liant diverses variables), on 
construit un modèle informatique 
(corrélations liant diverses cellules 
du tableau) dont on peut étudier le 
comportement. On peut ainsi tester sa 
sensibilité par rapport: à certaines 
variables ou extrapoler les formules 
pour faire du calcul prévisionnel. 
Prenons un exemple très concret : un 
emprunt. Connaissant le montant et la 
durée d'un emprunt on peut calculer, en 
fonction du taux d'intérêt, la 
mensualité à payer et la ventilation de 
cette somme sur divers - postes 
(intérêts, assurance, capital amorti, 
etc..). 

Aprss avoir décrit dans le tableau les 
formules liant la durée, le montant de 
l'emprunt, le taux d'intérêt et la 
mensualité, on peut faire varier l'un de 
ces paramètres et apprécier les 
répercussions sur les autres. 

En un tour de main on peut donc 


analyser avec précision le cas le 
mieux adapté à telle où telle situation. 
TI-CALC se prête très bien à ce type 
de travail. 


Pour les utilisateurs de /7v/{/p/an ou 
pour ceux ayant déjà travaillé avec un 
tableur, citons les principales 
caractéristiques de celui-ci. 


e formats d'affichage et d'impression 
entièrement  définissables par 
l'utilisateur; 
partage de 
fenêtres; 
suppression ou insertion de lignes 
(ou de colonnes) avec mise à jour 
automatique des formules; 
blocage à l'écran de certaines lignes 
(ou colonnes) permettant de 
visualiser en permanence des titres; 
4 couleurs disponibles pour chaque 
cellule; 
panoplie impressionante de 
fonctions numériques et logiques; 

e gestion des erreurs assez évoluée. 


l'écran en plusieurs 


Un seul véritable défaut : il n'est pas 
possible de lier plusieurs tableaux. 
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Un dernier mot sur la façon dont sont 
agencés les calculs. Contrairement à 
de nombreux tableurs, une cellule ne 
peut pas contenir de formule. Elles ne 
représentent qu'une grandeur 


numérique. Tous Jes calculs sont 
regroupés dans une liste de calcul 
faisant référence aux cellules. 


Pour conclure, TI-CALC est d'un très 
bon rapport qualité/prix. 11 permet de 


faire beaucoup plus de choses que les 
modules S/atistiquesou Gestion de 
Fichiers et a sa place sur tous les TI 
soucieux d'épargner de longues séances 
de calcul à leurs heureux possesseurs. 
0 


Sauvegarde des images graphiques 
et copie d'écran 


A en croire le courrier que vous nous 
envoyez, vous êtes nombreux à utiliser 
régulièrement les routines graphiques 
en assembleur. Ceux qui désiralent 
sauvegarder le résultat de leurs 
travaux sur disquettes se sont heurtés 
à un problème : la taille des fichiers de 
sauvegarde (12Ko) ne permet de 
stocker que sept images graphiques par 
disquette. Afin de gagner de la place, 
nous avons employé la seule solution 
possible : le codage des images. 


Codage des images 


Une image graphique en haute 
résolution est constituée de deux blocs 
de six Ko pour la table des 
descripteurs et la table des couleurs. 
On peut constater, lorsque l'on 
consulte ces blocs, que les octets 
consécutifs sont très souvent 
semblables. Le codage consiste à 
repérer ces octets identiques pour 
obtenir une image compactée. 


Le codage se fait en plusieurs étapes : 


e les deux blocs de mémoire sont 
subdivisés en 96 blocs de 128 
octets. Une fois codé, chacun de ces 
blocs constituera un enregistrement 
de taille variable. 

e Pour un bloc donné, nous partons du 
premier octet et nous regardons si 
l'octet suivant est identique au 
premier. Si c'est le cas, un compteur 
est incrémenté et nous 
recommençons jusqu'à ce que nous 
trouvions un octet différent du 
précédent. A ce stade, le bit de 
poids fort (bit de signe) du 
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compteur est forcé à 1 et l'octet 
résultant est stocké dans le buffer 
destiné à l'enregistrement. Nous 
stockons ensuite la valeur trouvée 
plusieurs fois de suite. 
Si nous trouvons des octèts 
différents les uns des autres, nous 
incrémentons aussi un compteur 
mais, cette fois, en laissant le bit 
de poids fort à O0. Ainsi, la routine 
de décodage pourra déterminer si 
elle a affaire à des octets 
identiques ou différents. Les octets 
différents sont stockés à la suite du 
compteur. 
e Nous  recommençons 
jusqu'au 128ème octet. 
e Le deuxième bloc est ensuite traité, 
et ainsi de suite jusqu'au 96ème. 
Pour résumer, nous vous proposons un 
petit schéma représentant un bloc de 
128 octets une fois codé : 


l'opération 


Jean-Luc Bazanegue 


Ceci nous permet d'obtenir sur la 
disquette des fichiers dont .la taille 
est proportionnelle au contenu des 
images. 


La routine de codage et sauvegarde 
peut être appelée soit depuis le Basic 
avec CALL LINK("SAUUE"), soit depuis 
la routine “IMAGE” avec la touche 
Contrôle-S. 


La routine de chargement et décodage 
peut être appelée depuis le Basic avec 
CALL LINK("CHARGE") ou depuis la 
routine “IMAGE” avec Contrôle-C, 

Dans les deux cas, la disquette de 
sauvegarde doit se trouver dans le 
lecteur 1 et il est possible de 
retourner au Basic avec la touche 
BACK. 


>A3| Le poids fort du compteur est à 1 donc l'octet >FF 


e poids fort du compteur est à 1 donc l'octet >00 
oit être répété 88 fois (>D8=216, 216-128-88). 
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Copie d'écran 


En plus des procédures de sauvegarde 
et de chargement, nous avons ajouté 
aux routines graphiques un programme 
de copie d'écran sur imprimante Apple 
ImageWriter (liaison série). Notre 
choix s'est porté sur cette imprimante 
en raison de son excellent rapport 
qualité/prix. Comme tous nos lecteurs 
ne disposent pas de ce type 
d'imprimante, nous avons placé dans le 
listing des indications qui vous 
permettront d'adapter la routine à 
votre imprimante. Sur la disquette 
"Routines graphiques”, nous avons 
enregistré, en plus du code objet 
contenant la copie d'écran sur 
ImageWriter (OBJETI), une version qui 
fonctionne avec une imprimante Apple 
DMP (liaison parallèle) sous le nom 
"OBJETD”. Ces codes objets 
fonctionnent indifféremment avec 
l'éditeur/assembleur ou la 
Mini-mémoire. Par la suite, nous 
ajouterons les codes objets pour 
d'autres imprimantes (GP100, Epson, 
etc...) 


Pour obtenir .une copie d'écran, lorsque 
vous êtes dans la routine “IMAGE”, il 
suffit d'appuyer sur CTRL-N pour 
obtenir une copie normale, ou CTAL-I 
pour obtenir une copie en inverse. 


Les routines graphiques ont été 
plusieurs fois modifiées depuis leurs 
débuts dans le numéro 4, il nous 
semble donc indispensable de vous 
donner le listing complet du source. De 
plus, ceux d'entre-vous qui disposent 


DEF, EFFT,EFFP,EFFC,AXES 


\ 4 


ME 
+ 


NA S 
RAS 


PA 


NK 
ep FUN 


U 


seulement de la Mini-mémoire nous ont 
fait part de leur désir de voir publié un 
programme Basic contenant le code 
objet, comme dans le numéro 4. C'est 


CR7 DATA 


(| 
[A 


“ 


4 


b” 
NAS 


NI EE 7 


< 


o 
a 


NN 


À 


désormais chose faite. Ce programme 
contient toutes les routines sauf la 
sauvegarde des images, inutile si vous 
n'avez pas de lecteur de disquettes. 


DEF POINT, IMAGE, LIGNE CR8 


COORD 
COULP 
# 
COULE 
POSAXE 
LIGNED 
LIGNEA 
TYPEL 
CODEL 
LIGNEL 
COLONL 
CONL 
COFFL 
REGI1 


DEF 


REF 
REF 


AORG 


DATA 
DATA 


DATA 
DATA 
DATA 
DATA 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
DATA 


CHARGE , SAUVE , LETTRE 


UMBU , DSRLNK , VSBU 
UMER ,USBR , KSCAN ,VUTR 


>A000 


(=) 


000000000000 


SARGPL 


RUDP1 
RUDPIT 


REGUDP 


DATA 


DATA 
DATA 


DATA 


0 
DATA Q 
0 


)E181 
>F081 


>0280,)A181,)0682,)FF83 


DATA >0384,>3685,>0786,)>1187,0 
RUDPBA DATA >0080,>E081,>0082,)0C83 
DATA >0084,)>0685,>00846,)0787,0 


RUDPT 


DATA >0080,>B081,)0082,)0E83 


DATA >0084,)0685,)0086,>F487,0 


ÉÉRÉERRÉÉRÉEREELÉEEÉEEÉERÉERÉEEEELEÉEEEEEEEEEEE 


>1000 


>FE00 
>0017 


K OK K KO K KX XX *X 


IMP = parametres pour fichier 
Imprimante ImageWriter (serie) 
>0012 = OPEN, VARIABLE, DISPLAY, 
OUTPUT, SEQUENTIAL 
Adresse du buffer en 
video 

Maximum 254 octets 
lonqueur nom du periph,. 


WOK KO K KO K % x 
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HÉÉHEREEREEREEERÉREEEERÉREREERERERIRRRXE d’octets tranemis 
Pour une imprimante DMP * (€ CHR$(27);"60192" ) 
(parallele), remplacer ce qui suit * 
par :! # RESET = reinitialisation de 
IMP DATA >0012,2>1000 ,>FF00 * l’imprimante 
DATA >0000,>0003 * (- CHRIS (272 5"c" à 
TEXT ‘PI10’ # HÉKHHEEEREREEEEEEEEREREÉEERÉÉÉEERÉRRRÉX 
EVEN 
HRREERERÉÉEKERÉEEREEEEEREREERÉÉRÉERERRX LF8 DATA D1B3E,)1B6E,)1B54,)3136 
5 * GRAPH DATA )>1B47,)3031,>3732 
IMP DATA >0012,)>1000,>FF00 * RESET DATA )1B63 
DATA >0000,>0017 * EVEN 
TEXT ’RS232.BA=9600.DA=8.PA=N" * 
* 
# 
# 


EVEN LIGNE MOVB 9LIGNED,R9 


SRL R9,8 
MOVB ALIGNEA,R7 
SRL R7,8 
EEE EEE EEE EUX MOV R7,29CR7 
* DSK = Parametres pour fichier * MOUB GLIGNED+1 ,R2 
* lecteur de disquettes : * SRL R2,8 
* )>001À = OPEN, VARIABLE, INTERNAL, x, CI R2,191 
# OUTPUT, SEQUENTIAL * JGT LIGNES 
HN JE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DEEE EE EEE EEE NE LI R10Q,191 

S R2,R10 
DSK DATA >001À,21000,2FE00 MOVB GLIGNEA+1I,R2 

DATA >0000,>0000 SRL R2,8 

TDSK TEXT ‘DSKi. CI R2,191 

JGT LIGNES 
REXRÉEREEEEEEAERÉERERREREEEEEEEKERÉEIRREX LI Re,191 
* Codes ASCII + 96 des messages pour  *% S . R2,R8 
* les routines "CHARGE! et "SAUVE" # MOV  R8,2CR8 
DRROUR HD HE ME DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DEEE EEK 


* 
ÉÉREEHRERERÉRERERRÉÉEÉHÉHHÉEÉH EEE EEE XX EX 


CLR R12 
TCHARG BYTE 163,200,193,210,199 LI RS, 1 


BYTE 197,205,197,206,212 LI Ré, 1 
TSAUVE BYTE 179,193,213,214,197 S R9 ,R7 


BYTE 199,193,210,196,197 JLT LIGNE! 
TERRI BYTE 165,210,210,197,213,210 JMP  LIGNE2 
BYTE 128,195,207,196,197 LIGNEI NEG RS5 
TERR2 BYTE 156,145,174,180,165,178,158 NEG R7 
BYTE 128,208,207,213,210,128,195 LIGNE2 MOV R7,R7 
BYTE 207,206,212,201,206,213,197 JNE_ LIGNES 
BYTE 210,142,142,142 SETO R12 
LIGNE3 S R10 ,R8 
EQU >24676 JLT LIGNE4 
EQU >837C JMP LIGNES 
EQU >8375 LIGNE4 NEG Ré 
EQU >8356 NEG R& 
EQU D)1000 LIGNES MOU R9,RO 
EQU >F80 MOU  R10,R1 
BYTE 15 MOUV  R1,R4 
BYTE 142 SLA R4,5 
BYTE 137 SOC R1,R4 
BYTE 147 ANDI R4,)FF07 
BYTE 131 a RO ,R4 
TENT  BYTE >0D ANDI RO,7 
TFS BYTE >08 s RO ,R4 
TFD BYTE >09 LI R3,>8000 
CURS  BYTE 111 SRC R3,0 
CMINI BYTE >30 SOCB R3,9TIMAGE(R4) 
CMAXI BYTE >5A MOUB ACOULP ,R13 
CLR R2 
HÉHÉRELEEELEEÉÉEREEEÉÉERÉERRÉEEREREREEEEX MOUB aCOULP+1,R2 
Caracteres de controle pour # SRC R2,12 
la copie d’ecran : SOCB R2,R13 
MOUB R13,aTCOUL(R4) 
C RS, 8CR7 
JNE LIGNES 
é R10 ,9CR8 
JNE LIGNEé 
LIGNES B RETOUR 
LIGNES MOU R12,R12 


LF8 = reglage du "LINE FEED'" et 

impression unidirectionnelle 
(€ CHR$(27) ;"c"3;CHRS(27);"n"; 
CHR$(27) ;"Ti1é" ) 


XX OX KM OK OK X X * 
NOM OK OX OK X XX 


GRAPH = Mode graphique et nombre 
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LIGNE? 


POINT2 


LIGNE? 
RS ,R9 

R8,R12 
LIGNES 
Ré,R10 
R7,R12 
LIGNES 


R2 

EFFP2 

R2 FHPLOT 
RO ,TIMAGE 

#RO+ IMAGE 
RO ,TIMAGE+)1800 

EFFPI1 

R2,R2 

FEFF 

RO ,TCOUL 

*xRO + 

RO ,TCOUL+>1800 

EFFCI 

RETOUR 


R11,a4REG11 


Re 
2POSAXE+1 ,R12 
R12,8 
R12,191 
AXEY1 

R9,191 
R12,R9 

AXEY 

R9 

R8, RO 

R9 ,R1 
2POINT2 

Re 

R8,256 

AXEY 


R9 
APOSAXE , R8 
R6,8 

RE, RO 

R9 ,R1 
@POINT2 

R9 

R9,192 
AXEX 
dREGI1 ,R11 
SRETOUR 


R7 
2CO0RD , RO 
RO,8 
2COORD+1 ,R2 
R2,8 

R2,191 
FHPLOT 
R1,191 
R2,RI 

R7 

R1,R4 

R4,5 

R1 ,R4 
R4,)FF07 

RO ,R4 

RO ,7 

RO ,R4 
R3,>6000 
R3,0 


R3, AT IMAGE(R4) 
aCOULP ,RS 
Ré 


ACOULP+1 ,Ré 
Ré,12 

Ré, RS 

RS, ATCOUL(R4) 
R7,R7 

FHPLOT 


ARETOUR 
R1,TBASIC 

RO 
R2,TBASIC+)>3800 
RO ,3>8C02 

RO ,2>8C02 
2>8800 ,#R1+ 

R1 ,R2 

sB 


GCOULE , 8REGUDP+ 1 4 


aREGUDP+2,3)83D4 
R1 ,REGUDP 
#*R1+,R2 

ITLUT 

R2,9>8C02 

R2 


R2,9)8C02 
IREM 


RO,>005B 

R1,>D000 

RO ,3>8C02 
RO 

RO ,9>8C02 


R1,2>8C00 


RI 
R2,768 

RO ,)0058 
RO, 8>8C02 
RO 


RO ,9>8C02 
RI 
R1,8>8C00 
R1 

R1 

R1 ,R2 

ITE 


RO ,>0040 

R1 ,TIMAGE 
R2,TIMAGE+)1800 
RO ,3>8C02 

RO 

RO ,9>8C02 


*R1+,9)8C00 
R1 ,R2 
TTI 


RO ,>0060 
R1,TCOUL 
R2,TCOUL+)>1800 
RO ,9>8C02 

RO 

RO ,9>8C02 
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CLALVO 


CLAV2 


CLAV4 
CLAV3 


RETOUR 


LETTRE 


NOP 
MOUB 
C 
UNE 


MOUB 
MQU 

MOUB 
SUIPB 
MOVB 


LWPI 
BL 
LUPI 
CB 
JEQ 
CB 
JNE 
B 

CB 
JNE 
B 

CB 
JNE 
CLR 
B 

CB 
JNE 
SETO 
JMP 


LI 
MOUV 
JEG 
MQOUR 
SWPB 
MOUR 
JMP 


LI 
LI 
LE 
MOUBR 
SUPB 
MOUB 
NOP 
MOVR 
C 
UNE 


CLR 
MOUB 
RT 


MOVB 
SRL 
CI 
JH 

B 
MOUB 
JEQ 
LI 
CI 
JL 


LI 
CI 
JH 
AI 


x 


#R1+,9>8C00 


R1,R2 
TTC 


aRUDP1 ,9>83D4 


aRUDP1 , RO 
RO ,9>8C02 
RO 

RO ,a>8C02 


>83E0 
a)000E 
>20BA 


ARCLAV , 3BACK 


RBIS 
aRCLAV , aCN 
CLAVO 
DIMPN 
WRCLAV, aCI 
CLAV2 
aIMPI 
WRCLAV, dCS 
CLAU3 

R10 

asETC 
aRCLAV , aCC 
CLAWVI 

R10Q 

CLAVA4 


R1 ,RUDPBA 
#R1+,R2 
TTBAS 
R2,9>8C02 
R2 
R2,9)8C02 
IRE 


RO ,>0040 
RI,TBASIC 


R2,TBASIC+>3800 


RO ,2)>8C02 
Ro 
RO ,a>8C02 


#R1+,9)8C00 


R1 ,R2 
TTB 


RO 
RO, dETAT 


aCODEL ,R14 
F14,8 
R14,32 

LO 

aRETOUR 
aTYPEL,RIS 
Li 
R13,2304 
R14,91 

L2 

L3 
R13,1024 
R14,159 

L3 

R14,-32 
R14,3 
R14,R13 


aCOLONL ,R14 
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SRL R14,8 

CI R14,32 

JH  L3 

DEC Rid 

JNC L3 

SLA R14,3 
MOUB GLIGNEL,R12 
SRL R12,8 

Ci R12,24 

JH La 

DEC R12 

JNC L3 

MOUV  R12,R12 
JEG La 

AI R14,256 
DEC R12 

JNE LS 

MOUB aCOFFL,R? 
CLR R10 

MOVUB aCONL ,R10Q 
SRC R10,12 

SOC R10,R7 

LI RO ,TCOUL 

A R14,RO 

LI P1,8 

MOUVB R9,#RO+ 
DEC R1 

JNE Lé 

LI RO ,TIMAGE 
A R14,RO 

LI  R1,8 

SUPR R13 

MOUB R13,2)8C02 
SWUPE R13 

MOVB R13,2>8C02 
NOP 

MOUB 3>8800 ,#RO+ 
DEC Ri 

JUNE L7 

JMP La 


ÉÉÉÉÉÉERELEÉÉEÉÉEEÉEÉEEEEEEEÉEEEEELEXEY EX XX 


Routine de copie de l’image 
araphique sur imprimante 
ImageWriter Apple 


* 
* 
* 
* 
* 
+ 
* 


IMPI SETO RiQ 
JMP  IMPO 
IMPN CLR R10 


ERRÉÉÉEEÉEREÉEEÉEELEEEEEEELELEXEX 
# Sauvegarde de l’adresse de +* 
#* retour GPL * 
ÉRERHEÉÉEÉEEREIEEEEREEEELELLEYEEEX 
* Pas necessaire avec + 
# |l’imprimante DOMP * 
ÉRÉEEREEEREREEREREEEÉELRELEEE EX X 
% # 
IMPO MOVB a>7802,a5SARGPL # 

MOUB 9>5802,a5SARGPL+1 +* 

DEC  aSARGPL # 
# » 
LÉ HXXXEX XXE XXE EX NÉE NX XX EX XX € 


* Ouverture du fichier 


LI  RO,PAB 
LI  R1,IMP 


CTRL-N pour impression normale 
CTRL-I pour impression en inverse 
HXEHERÉRÉÉÉREEEEEEERÉÉEEEERÉERÉÉÉEÉEE 


Là 
* 
x 
* 
* 
* 





LI 
BLWP 
LI 
MOUV 
BLWP 
DATA 


Initialisation du bloc d’acces 
aux peripheriques pour ecriture 


LI 
LI 
BLWP 


transmissi 


line feed 


unidirecti 


LI 
LI 
LI 
BLUP 
LI 
LI 
BLUWP 
LI 
MOU 
BLWP 
DATA 


R2,40 
AVMBU 

R9 ,PAB+9 
R? , 3PLONG 
2DSRLNK 

8 


RO ,PAB 
R1,0300 
aVSBUW 


on des codes pour 
et impression 
onnelle 


RO ,TPAB 
RI,LF8 
R2,8 
aVMBU 

RO ,PAB+S 
Ri,)0800 
aVSBUW 

R9 ,PAB+9 
R9 , 8PLONG 
ADSRLNK 
8 


ÉHHHÉERÉEHEREXEREÉÉÉXEÉÉE XXE 


* Roucle d’impression * 
JDE DEEE DE DE DE DE DE DE DE DE DE DE DE DE DE DEEE 


BIMP LI 
LI 


BIMPO MOV 


R3, 32 
R4,TIMAGE+248 


R4,RS 


* Transmission des codes pour 
* le mode graphique et le 
* nombre d’octets 


BIMPI LI 
LI 
LI 
BLWP 
LI 
LI 


# Calcul des codes a transmettre 


BIMP2 LI 


BIMPS MOVB 
MOV 
JEQ 
INV 
BLWP 
DEC 
JEQ 
INC 
DEC 
JEG 
INC 
JMP 

BIMP4 AI 
JMP 


RO ,TPAB 
R1 , GRAPH 
R2,6 
2VMBW 

RO ,TPAB+é6 
Ré,192 


R7,8 


*RS ,R1 
R10,R10 
BIMP3 
R1 
aVSEU 
Ré 
IMPR 
RO 

R7 
BIMP4 
RS 
BIMPS 
RS ,249 
BIMP2 


LI R1,)Cé600 
BLWP 3VSBUW 

LI R?,PAB+9 
MOV  R9, 3PLONG 
BLWP 9DSRLNK 
DATA 8 


DEC R3 
JEQ FIMP 
AI  R4,-8 
JMP  BIMPO 


HÉÉERELÉELERÉÉERÉEERÉEREEE 
* Reinitialisation de * 
* l’imprimante # 
JDE DE DE DE DE DE DE DE DE DE DE DE DE DEEE EEE EEE 
#* Ces codes ne sont pas * 
reconnus par 
1/imprimante DMP mais 
la routine peut 
rester dans Île 
progr amme 
262 DD DE DE DEEE DE DE DE DE JE DE DEEE EEE NE XX 
# 
FIMP LI RO ,TPAB 
LI R1,RESET 
re R2S;2 
BLWP VMEUW 
LI RO ,PAB+S 
LI R1,2>0200 
BLWP aVSBW 
MOV  R9, 3PLONG 
BLWP GDSRLNK 
DATA 8 


* 


M OK OK OK K OK K OK OK OÙ OK OK OK KO K XX 


* 
LÉLESSSLLL LL LL LL LL LL LL LL. 


* Fermeture du fichier 


LI  RO,PAB 

LI R1,)0100 
BLWP 9VSBUW 

MOV  R9,3PLONG 
BLWP ADSRLNK 
DATA 8 


* Remise en etat de 
* l’image graphique 


LI  RO,PAB 
LI  R1,TIMAGE+)0F80 
LI R2,512 
BLWP 3UMBW 


HÉHERERERERERÉREÉRÉÉEREELEREREEXX 
* Recuperation de l’adresse de * 
* Retour GPL x 
HÉXHÉEHEERÉEEERERÉEÉÉELERÉEELEEÉEX 
* Pas necessaire avec + 
#* l’imprimante DMP * 
RÉXEÉEHEREEEERERÉERHEREEÉELEEEEÉEXX 
* . + 

MOUB GSARGPL, 2>7C02 # 

MOUB GSARGPL+1,9)>97C02 # 
% * 
RÉREREEELEREEEEEEEEÉEÉEÉÉEEERÉEEEX 


B aCLAVI 


* Impression d’une ligne 


RÉREÉRÉÉÉEÉERERELÉEMERÉÉEREEÉEÉERERERXEX 
# Routines de codage, sauvegarde, * 


IMPR ET RO ,PAB+S # chargement et decodage des images * 
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graphiques. 


Appel des routines depuis le Basic 


par CALL LINKÇC"CHARGE") et 
CALL LINKÇC"SAUVE") ou, depuis 
routine "IMAGE", p'ar CTRL-C et 
CTRL-S.: 


RHÉHXÉHHÉEH MH HUMMER E EE 


CHARGE SETO R10O 
JMP CO 
SAUVE CLR RI10 


Co MOUB a@RLVDPT+2,23>83D4 
MOV GRUDPT+2,RO 
MOVRB RO,2@»>8C02 
SWPB RO 
MOVB RO,23>8C02 


* Sauvegarde de la memoire video 


* si appel depuis le Basic. 


CLR RO 

LI Ri1,TBASIC 

LI R2,TBASIC+>3800 
MOVB RO,2>8C02 

NOP 

MOUB RO ,2>8C02 

NOP 


MOUB 3>8800 ,xR1 + 
C R1 ,R2 

JUNE C8 

JMP C9 


# Restitution de la memoire video 


* si appel depuis "IMAGE" 


SETC MOVB GRUDPT+2,a)83D4 
MOV 3RUDPT+2,RO 
MOVB RO,28>8C02 
SWPB RO 
MOUB RO ,9>8C02 
LI  RO,>0040 
LI Ri,TBASIC 
LI  R2,TBASIC+)3800 
MOVB RO ,2>8C02 
SUPB RO 
MOVB RO,3>8C02 
NOP 
MOVB *R1+,2>8C00 
C R1 ,R2 
JNE C10 


* Passage en mode texte 


c9 LI  R1,RUDPT 
ci MOV  #R14+,R2 
JEQ C2 
MOVB R2,9>8C02 
SWPB R2 
MOVB R2,29)8C02 
JMP Ci 


*# Efface l’affichage 


c2 LI  R2,960 
LI RO,>0040 
LI R1,)8000 : 
MOUB RO,2>8C02 
SWPB RO 
MOUB RO,2>8C02 
NOP 
MOVB R1,29>8C00 
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DEC R2 
JNE C3 


* Retablissement de 1‘’affichage 


MOUB GRUDPIT,23>83D4 
MOUV  GRUDPIT,RO 
MOUB RO,2)>8C02 

SWPB RO 

MOVB RO ,2%>8C02 


* Affichage 


LI  RO,2 

LI R2,10 

MOV R10,R10 
JEQ Ca 

LI  R1,TCHARG 
JMP CS 

LI  R1,TSAUVE 
BLUP 9UMEW 


LI  RO,82 

LI R3,TDSK 
LE - RS 16 
MOUB *xR3+,R1 
AI R1,)6000 
BLWP 9VSBUW 
INC RO 

DEC R2 

JNE' Cé 


HRRÉRELRÉREREEREELELÉRÉHRXÉ 
#* Saisie nom de fichier * 
RÉREÉEERELRERERELELELEREEE 


LI RO,87 

CLR R7 

LI R3,)4644 

LI  RS,TDSK+5 

LI R4,)100 

BLWP 3KSCAN 

MOVB ETAT ,Ré 

JEQ CBCL 

CB  GRCLAV, 3BACK 
JNE CB3 

LI RO,)E000 
MOVB RO ,2>83D4 

B aRBIS 

CB  GRCLAV, ATENT 
JEQ CBENT 

CB  aRCLAV,2TFS 
JEQ CEBFS 

CB  9RCLAV, ATFD 
JEQ CBFD 


* Caracteres 


Gt R7,10 

JEQ CBCL 

CB  2RCLAV, 9CMINI 
JL  CBCL 

CB  9RCLAU, 3CMAXI 
JH  CBCL 

MOUB ARCLAV, #R5 
MOUB *xR5+,R1 

AI R1,)6000 

BLUP aUSBUW 

INC RO 

INC R7 

JMP  CBCL 
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* FCTN-S 


CBFS MOV 
JEQ 
MOVB 
AI 
BLUP 
DEC 
DEC 
DEC 
JMP 


* FCTN-D 


CBFD CI 
JEQ 
MOVB 
AI 
BLWP 
INC 
INC 


R7,R? 
CBCL 
*RS,R1 
R1,)6000 
aVSBU 

RO 

R7 

RS 

CBCL 


R7,10 
CBCL 
*RS+ ,R1 
R1,>6000 
aVSEUW 

RO 

R7 


* Clignotement curseur 


CBCL DEC 
JNE 
SRC 
JOC 
MOUB 
JMP 
MOVB 
AI 
BLWP 
JMP 


* (ENTER) 


CBENT MOUV 
JEQ 
CI 
JEQ 
LI 
LI 
LI 

CBENTI MOVB 
DEC 
DEC 
C 
JNE 


CRENT3 LI 
LES 
LI 

CBENT2 MOUB 
AI 
BLWP 
INC 
DEC 
UNE 


* Ouverture 


LI 
LI 
LI 
BLWP 
AI 
SLA 
MOV 
LI 
BLWP 
LI 


R4 

cB2 

R3,1 
CBCL1 
#RS ,R1 
CRCL2 
ACURS ,Ri 
R1,>6000 
aVSBU 
cB1 


R7,R7 
CBCL 
R7,10 
CBENT 3 
RO ,TDSK+14 
R2,10 
R3,>2000 
R3, *RO 
RO 

R2 

R2,R7 
CBENT1 


RO ,82 
R2,16 
R3,TDSK 
#R3+ ,R1 
R1,)6000 
aVSBU 

RO 

R2 
CBENT 2 


du fichier 


RO ,PAB 
R1 ,DSK 
R2,25 
AVMEU 
R?7,5 
R7,8 
R7,RI 

RO ,PAB+9 
aVSBU 

RO ,PAB+1 


MOV 
JEQ 
LI 
JMP 
LI 
BLWP 
LI 
MOV 
CLR 
MOUB 
BLWP 
DATA 
JNE 


* Erreurs Entree/Sortie 


BERR2 LI 
CLR 
BLWP 
ANDI 
MOUV 
LI 
Lu 
LI 
BLWP 
LI 
LI 
LI 
BLWP 
LI 
LI 
SRL 
À 
SWPB 
BLWP 


BLWP 
MOVB 
JEQ 
CR 
UNE 
LI 
LI 
LI 
BLWP 
INC 
C 
INE 
B 


MOUV 
MOUV 
UNE 


RICO ,R10 
sci 
R1,)1C00 
SC2 
R1,)1400 
aVSBU 

RO ,PAB+9 
RO , 3PLONG 
RI 
RI,9ETAT 
2DSRLNK 
8 

sc 


RO ,PAB+1 
RI 

AVSER 
R1i,)E000 
RI ,R& 

RO ,162 
R1 ,TERRI 
R2,11 
AVMEU 

RO ,202 
R1 ,TERR2 
R2,25 
aVMBU 

RO ,174 
Ri,144 
R3,13 
R3,R1 

R1 

aVSEU 


AKSCAN 
4ETAT ,Ri 
BERR 


DRCLAV , ATENT 


BERR 
RO ,162 
R2,227 
Ri,)8000 
aVSBU 

RO 

RO ,R2 
BERRI! 
2C7 


R11,aREGI1 
R10,R10 
CHAR 


XEROX EX NE À 


* Codage et sauvegarde * 
HXHEHEREREREEREEEREEIÉIEXÉX 


LI 
LI 
BLWP 


BL 
DATA 


BL 
DATA 


Ri,)0300 
RO ,PAB 
aVSBUW 


aCOD 
TIMAGE 


aCOD 


.TCOUL 


* Enregistrement couleur ecran 


MOVB 
LI 


ACOULE ,R1 
RO, TPAB 
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BLUP aVSBU CLR R? 
Li R1,>0100 
LI RO ,PAB+S CI R7,127 
BLWP aVSBUW JEQ COD4 
ET R9 ,PAB+9 MOVB #R7+,R8 
MOU  R9, 2PLONG CB #R7,R8 
BLWP @DSRLNK JNE  CODD 
DATA 8 
JNE SCO * Octets identiques 
B GENRC3 
DEC R7 
* Fermeture du fichier et CLR Ré 
* retour au Basic MOUB #R7+,R8 
INC R9 
SCO LI R1,>0100 | CI R9,128 
Li RO ,PAB JEG COD2 
BLUP aUSEBU CB *R7,R8 
MOV  R9, aPLONG JNE  COD2 
ELUP GDSRLNK INC Ré 
DATA 8 JMP  COD1 
MOV  aREG11,R11 
B aCBR . SUPB Ré 
ORI Ré,)>8000 
ÉXÉERÉÉÉÉÉEÉEREERÉEREREELEXE MOUB Ré, aTRAMCRS5) 
* Chargement et decodage * INC RS 
ÉÉXÉKÉÉÉELEEEEEREÉRÉEÉÉÉEÉEESE DEC R7 
MOVB #R7+, aTRAMCRS) 
CHAR LI R1,>0200 INC RS 
LI RO ,FAB CI R?,128 
BLWP aVSBW JEQ  ENRC 
JMP  CODO 
BL aDCOD 
DATA TIMAGE CLR Ré 
MOV Ré, ATRAMCRS) 
BL AaDCOD INC RS 
DATA TCOUL MOU  #R7, àTRAMCRS5) 
INC RS 
* Lecture couleur ecran JMP  ENRC 


LI RS ,PAB+9 * Octets differents 
MOUV RS, aPLONG 
BLWUP DSRLNK CDD DEC R7 
DATA 8 MOUV  R7,R10 
JUNE  CHARO CLR Ré 
B 2DCOD4 CODDO MOVB *xR7+,R8 
INC RS 
LE RO ,TPAB CI R?,128 
BLWUP aUSBR JEQ CODDiI 
MOUB R1,aCOULE CB *R7,R8 
JEQ CODD1!i 
* Fermeture du fichier et INC Ré 
* branchement sur la JMP  CODDO 
* routine "IMAGE" 
| MOV  Ré,R2 
ÊT R1,0100 SWPB Ré 
LI Ra ,PAB MOVB Ré, 8TRAMCRS) 
BLWP aUVSBUW INC RS 
MOV  R9, 3PLONG 
BLUP GDSRLNK MOUB *#R10+,39TRAMCRS) 
DATA 8 INC R5 
MOV  aREGI1,R11 DEC R2 
B dIMAGE2 JOC CODD2 
CI RS,128 
HXHÉÉELEEREREEREREREX JNE CODQ 
# Routine de codage * 
HÉRHEÉREEEREÉIRREIÉXEX * Enregistrement d’un bloc 
* de 128 octets code 
CoOD MOU  xR11+,R3 
LI R4,48 ENRC MOV  R5,R2 
SLA RS,8 
COD3 CLR RS MOVB R5,RI 
MOV  R3,R7 CI RO ,PAB+S 
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BLWP 3USBU JEQ FDCOD 
LI RO ,TFAB INC RS 
LI R1,TRAM DEC R& 
BLWP 2UMEUW JOC DCODDO 
LI RO ,PAB+9 JMP  DCOD3 
MOUV RO, 9PLONG 
BLWP ADSRLNK FDCOD DEC R4 
DATA 8 JNE  FDCODO 
UNE  ENRCI RT 
ENRC3 CLR R10 
ENRC2 MOV 3REG11,R11 FDCODO AI R3,128 
B 2BERR2 JMP  DCOD1I 
ENRCI DEC Ra 
JNE  ENRCO TBASIC RSS >3800 
RT TIMAGE BSS )>1800 
ENRCQO AI R3,128 TRAM BSS 254 
JMP  COD3 


RRÉHÉEHEEEEELEREREEEEEEXX 


* Routine de decodage * 
HRHÉRERELEREEÉEÉERÉREREE 





100 REM XXXÉYEXEEEEEREREXEEÉEX 


FÇUS Fe MA 110 REM * Routines * 

DCODI MOV R3,R7 120 REM * Graphiques * 

130 REM XXÉXXÉÉXEEKEEREEEEEEEEE 

LI RO ,PAB+? 140 REM * Ce programme = 

MOV RO, aPLONG 150 REM * implante le code * 

ELWP  3DSRLNK 160 REM * objet en memoire  * 

DATA 8 170 REM xXYXYXEXHERXEEEERHÉXEX 

JNE  DCODQ 180 REM  * Basic TI + # 

DCOD4 SETO R10 190 REM %* Mini-memoire +  * 
JMP  ENRC2 


#* Lecture des codes 
* relatifs a un bloc 
* de 128 octets 


200 REM %* Extension 32Ka * 
210 REM XXXXXERERÉEEEHÉREREXXX 
220 REM 

230 REM Pointeur derniere 

240 REM adresse libre dans 
250 REM la Mini-memoire 


DCODO LT RO , PAB+S 260 REM 
BLMF" 9NS6E 270 CALL LOAD(28702,127,192) 
MOV R1,R2 250 REM Initialisation de 
LI  RO,TPAB 300 REM la table des 
LT R1,TRAM 310 REM references externes 
BLWP AUMER 2: BEM 
330 DATA 467,70,70,84,32,32,161,146,69,70, 
. RS 70,80,32,32,161,150,69,70,70,67,32,32,1 
LR R? 61,168 
340 DATA 45,88,69,83,22,22,161,184,80,79, 
DCOD3 MOUB 2TRAM(RS) ,R8 à HT pe Dem ? 
3,78,84,32,162,4,73,77,65,71,69,32,162 
ANDI R8,)8000 = DEEE ER Fu PEN RER EPP Er PE 
JEQ DCODD ; 


* Octets identiques 


350 DATA 76,73,71,78,69,32,160,228,76,69, 
84,84,82,69,163,166 
360 FOR 1=32704 TO 32767 


370 READ N 

MOVB GTRAMCRS) ,R8 380 CALL LOAD(I ,N) 

INC RS 290 NEXT 1 

SUPB R8 400 REM 

ANDI R8,>007F 410 REM Chargement du code 
DCOD2 MOVB ATRAMCRS) ,#R7+ 


| 420 REM objet dans 


INC R7 430 REM l’extension 32Ka 
CI R9,128 440 REM 
JEG FDCOD 450 DATA 225,129,240,129,2,128,161,129,6, 
DEC Re 130,255,131,3,132,54,133,7,134,17,135,0 
JOC DCOD2 ,0 

460 DATA 0,128,224,129,0,130,12,131,0,132 
INC RS ,6,133,0,134,7,135,0,0,0,128,176,129,0, 
JMP  DCOD3 


*# Octets differents 


130 
470 DATA 14,131,0,132,6,133,0,134,244,135 
,0,0 





DCODD MOUVB aTRAMCRS) ,R8 








4gû DATA 0,18,16,0,255,0,0,0,0,23,82,83,5 








es _ " 0,51,50,46,66,65,61,57,54,48,48,46,68,6 
5,61 
DCODDO dy gli ah 450 DATA 56,46,80,465,61,78,0,0,26,16,0,25 


1 RENSE 4,0,0,0,0,0,68,83,75,47,46 
, 
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500 DATA 32,32,32,32,32,32,32,32,32,32,32 
,163,200,193,210,199,197,205,197,206,21 
2 
510 DATA 179,193,213,214,197,199,193,210, 
196,197,165,210,210,197,213,210,128,195S 
207 
, 
520 DATA 1974,197,156,145,174,180,165,178, 
158,128,208,207,213,210,128,195,207,206 
212 
, 
530 DATA 201,206,213,197,210,142,142,142, 
15,142,137,147,131,12,8,9,111,48,90,0,2 
7,62 
540 DATA 27,110,27,84,49,54,27,71,48,49,5 
7,50,27,99,210,76,160,8,9,137,209,224,1 
60,10 
550 DATA 9,135,200,7,160,20,208,160,160,9 
,9,130,2,130,0,191,21,63,2,10,0,191,98, 
130 
560 DATA 208,160,140,11,7,130,2,130,0,191 
,21,54,2,8,0,191,98,2,200,8,160,22,4,20 
4 
s70 DATA 2:5,0,1:2,4,0,1,97,201,17,1,f6,2 
55,5,5,7,193, 199,22,1,7,12,98,10,17,1,1 
2 
580 DATA 5,6,5,8,192,9,192,74,193,1,10,84 
.225,1,2,68, 255,7, 161 ,0,2, 64, 0,7,97,0,2 
52 
590 DATA 128,0,11,3,249,3,226,38,211,96,1 
60,2,4,194,208,140,140,2,11,174,243,é66 
600 DATA 217,13,38,118,126,7,160,20,22,5, 
136,10,160,22,22,2,4,96,163,158,195,12 
610 DATA 17,3,142,69,99,8,16,218,162,134, 
163,7,16,215,7,2,16,1,4,194,2,0,226,38 
620 DATA 4,240,2,128,250,38,22,252,192,13 
0,19,6,2,0,38,118,4,240,2,128,62,118,22 
,252 
630 DATA 4,76,143,158,200,11,160,18,4,200 
2211432160,719:1402)140,0,19L 521941 29 
640 DATA 0,191,98,76,16,1,4,201,192,8,192 
,73:6,160,162,30,5,136,2,136,1,0,22,248 
650 DATA 4,201,210,32,160,6,9,136,192,8,1 
92,73,6,160,162,30,5,137,2,137,0,192,22 
,248 
éé0 DATA 154,224,160,18,4,96,163,158,7,7, 
208,32,160,0,7,128,208,160,160,1,9,130 
670 DATA 2,130,0,191,21,30,2,1,0,191,96,6 
6,4,199,193,1,10,84,225,1,2,68,255,7,1é6 
1,0 
680 DATA 2,44,0,7,97,0,2,3,128,0,11,3,249 
»3,:226,38,209,96,160,2,4,198,209,160,16 
0,3 
690 DATA 11,198,241,70,217,5,38,118,193,1 
99,22,1,4,91,4,96,163,158,2,1,170,38,4, 
192 
700 DATA 2,2,226,38,216,0,140,2,16,0,216, 
0,140,2,16,0,220,96,136,0,128,129,22,25 
2 
710 DATA 2146,32,160,4,160,44,216,32,160,3 
2,191,212,2,1,160,90,102,177.19,6,216,2 
720 DATA 140,2,4,194,216,2,140,2,16,248,2 
,0,0,91,2,1,208,0,216,0,140,2,6,192,216 
0 


, 
730 DATA 140,2,16,0,216,1,140,0,4,1923,2,2 


5350,;25090, 88, 214, 0,140,2,6, 192; 216, 0,1 
40,2 


740 DATA 6,173,216,1,140,0,46,193,5,129,12 
8,129,22,249,2,0,0,64,2,1,226,38,2,2 

750 DATA 250,38,216,0,140,2,6,192,216,0,1 
40,2,16,0,216,49,140,0,128,127,22,252,2 

0 

; 

760 DATA 0,76,2,1,38,118,2,2,62,118,216,0 
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,140,2,6,192,216,0,140,2,16,0,216,49,14 
0,0 

770 DATA 128,129,22,252,216,32,160,26,131 
,212,192,32,140,26,216,0,140,2,6,192,21 
6,0 

780 DATA 140,2,2,224,131,224,6,160,0,14,2 
,224,112,184,152,32,131,117,160,200,19, 
25” 

790 DATA 152,22,131,117,160,201,22,2,4,96 
,164,76,152,32,131,117,160,202,22,2,4,9 

6 

800 DATA 144,72,152,32,131,117,160,203,22 
,3,4,202,4,94,145,178,152,22,131,117 

810 DATA 140,204,22,223,7,10,16,248,2,1,1 
40,48,192,177,19,6,216,2,140,2,6,194,21 
5 

820 DATA 140,2,16,248,2,0,0,64,2,1,170,38 
,2,2,226,38,216,0,140,2,6,192,216,0,140 

2 

, 

230 DATA 16,0,216,49,140,0,128,129,22,252 
,4,192,216,0,131,124,4,91,211,160,160,1 

3 

840 DATA 9,142,2,142,0,22,27,2,4,96,162,1 
58,211,224,160,12,19,6,2,13,9,0,2,142,0 
,71 
850 DATA 26,6,16,245,2,13,4,0,2,142,0,159 
,27,240,2,46,255,224,10,62,163,78,211,1 
40 
860 DATA 140,15,9,142,2,142,0,32,27,230,6 
Un sien a Lie CLÉ 
870 DATA 0,24,27,221,6,12,23,219,195,12,1 
v,4,2,46,1,0,4,12,22,2%9,210.94,160,17 
880 DATA 4,202,210,140,160,16,11,202,226, 
74,2,0,38,118,160,14,2,1,0,8,220,9,6,1 
890 DATA 22,253,2,0,226,38,160,14,2,1,0,8 
,6:205,216,13,140,2,6,205,216,13,140,2, 
16,0 
900 DATA 220,32,136,0,6,1,22,252,16,181,7 
10,14,1:4,202,216,32:192,2,160,24,214, 
32 
910 DATA 152,2,160,25,6,32,160,24,2,0,15, 
128,2,1,160,84,2,2,0,40,4,32,96,40,2,9 
920 DATA 15,137,200,9,131,86,4,32,96,56,0 
.8,2,0,15,128,2,1,3:0:4 325963625016 

0 


L 

930 DATA 2,1,160,212,2,2,0,8,4,32,96,40,2 
,0,15,133,2,1,8,0,4,32,96,36,2,9,15,137 

940 DATA 200,9,131,86,4,32,96,56,0,8,2,3, 

0,32,2,4,227,30,193,68,2,0,16,0,2,1,160 

, 220 

950 DATA 2,2,0,6,4,32,96,40,2,0,16,6,2,6, 

0,192,2,7,0,8,208,85,194,138,19,1,5,65, 
4,32 

960 DATA 76,36,6,6,19,8,5,128,6,7,19,2,5, 
133,16,242,2,27,0,249,16,228,2,0,15,122 
,2,1 

970 DATA a 

EME 
980 DATA 255,248,16,207,2,0, 

228,2,2:0,2:4,32,96,40,2,0, a 
0 

, 

970 DATA 4,32,96,36,200,9,131, 
56,0,8,2,0,15,128,2,1,1,0,4,32,9 
0,9 

1000 .DATA 121,86,4,32,96,56,0,8,2,0,15,12 
8,2,1:241,166,2,2,2,0,4,92,96,40,216,22 
1010 DATA 160,24,156,2,216,32,140,25,1Sé, 
2,4,96,163,36 

1020 FOR I=-24550 TO -23177 

1020 READ N 

104û CALL LOADCI ,N) 

1050 NEXT 1 


86,4,32,9é, 
,36,20 





Copie d'écran sur Seikosha GP250 


Michel Schurmans 


Nous vous proposons cette fois un 
sous-programme de copie d'écran pour 
imprimante Seikosha GP250 écrit en 
Basic Etendu. La présentation est 
celle d'une fonction à intégrer par 
MERGE dans le programme principal, 
ou à placer en fin de programme. 

Les codes de la GP250 sont les 
suivants : 


CHR$(27);"'L"CHR$(x) 
modifie l'interligne (x=2 : lignes 
jointives; x=3 : interligne normal); 


(soit nombre de caractères dans 15). 
étant, 
procédure, toujours inférieur à 255, 


CHR$(27);"G" Ce nombre 


code introduisant le graphisme; 


e CHR$(15) 
rétablit l'impression normale par 
suppression du mode graphique. 


dans cette 


le poids fort de ce nombre est 


CHR$(0);CHR$(LEN(1$)) 
nombre de “colonnes” graphiques 


32707 
32710 
32711 
32712 


LORREEEEREEÉLEEEÉEEESEXSEX 

L 

l 

Q 
327138 ! 

! 

! 

Ul 

} 


* Copie d’ecran sur  * 
* imprimante * 
* Seikosha GP250 # 
ÉÉÉÉÉEEEREÉÉEEÉÉEREEERXXYX 
+ Basic Etendu * 
ÉFÉEEERÉEÉEREEEEEEEKEXEX 


32714 
32715 
32716 
32717 ! CALL HARDCOPY(LigneDebut ,LigneFin 
,ColonneDebut ,ColonneFin) : 1,24,1,32 p 
our la totalite de l’ecran. 

32718 ! 

32719 SUR HARDCOPY(iLD,LF,CD,CF) 

32720 ! 

32721 DIM CHAS(I12),T(8,8) 

32722 Ut="1234547897ABCDEF" 

32723 FOR C=0 TO 112 s: CHAS(C)="" 3 

EL e 

32724 ! 

32725 OPEN. #1: "PIO.LF,CR”" 

22726 PRINT H1:CHR$(C27);"L'"; CHR$SÇ(2) ! 
es jointives 

92727 ! 

32728 FOR LC=LD TO LF 

32727 1$5="" 

227350 FOR COL=CD TO CF 

32731 ! 

32732 CALL GCHAR(LC,COL,CH) 

32733 IF CH<32 THEN CH=32 

2734 IF CHASCCH-231)="" THEN 3232736 ! 
le recalcul des caracteres 
I$=18SCHAS(CH-31):: GOTO 32760 

CALL CHARPAT(CH,A$) 


Lign 


Evit 


NN NY 
D Jan 


{ Transformation du codage horizont 
TI 
l en une matrice T(C,) 


CO % C OC) CO D Co 
(es 


N) — N) NN N 


NJ 
QG) Q © © (9 


© 


toujours O (CHR$(O) est la seule 
valeur possible); 


32740 ! 

22741 FOR L=i TO 8 

22742 N=POS(US,SEGS<AS,2x#L-1,1),1)#16+POS 
CUHS,SEGHSCAS,2#L,1),1) 

32743 LV=i28 

32744 FOR C=i TO & 

32745 IF NU THEN T(L,C)=0 ELSE T(L,C)=1 
52 N=N-V 

32746 V=VU/2 

32747 MNEXT C 

32748 NEXT L 

32747 ! 

32750 ! Code imprimante par codage vertic 
al de la matrice 
32791 ! 

32752 FOR C=1i TO 
32753 M=Q :: V=i 
32754 FOR L=i TO 
32755 V=Ux2 

32756 NEXT L 

32757 I$=IFÈLCHRS CN) : : 
—31)&CHR$& CN) 

32758 NEXT C 

32759 ! 

22760 IF LENCI#S)<1Z28 AND COL<CF THEN 3276 
2 

32761 PRINT H1:CHR#C27):;"G"3; CHR#$CO) ; CHRS( 
LENCI$))D:1$5;:: 1$="" 

32762 NEXT COL 

32763 FRINT #1:CHR$#(15):"Texte eventuel" 
32764 PRINT #H1:CHR$S(13) ; CHR$(10) 

32765 NEXT LC 

32766 PRINT #1:CHR$S(15) ; CHR&(27) ; "LL"; CHR# 
(3): CLOSE #i 

32767 SUBEND 


NEN#T(L,C) #U 


CHAS (CH-31)=CHAECCH 
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Comme nous avons tous pu Île 
remarquer, la documentation fournie à 
chaque acquéreur d'une carte P-code 
présente de nombreux inconvénients. 
Citons les deux plus flagrants : 


e elle est rédigée en anglais (notons 
au passage que la législation 
française est trés claire à ce sujet, 
et impose théoriquement que tout 
matériel vendu à l'intérieur de nos 
frontières soit accompagné d'une 
notice française...) 


eelle est totalement  incompré- 
hensible par un utilisateur ne 
possédant pas une certaine 


expérience en la matière et ne 
permet pas, hélas, de s'initier au 
système-P et encore moins au 
Pascal. 


Aussi, nous entamons ici une série 
d'articles destinée à familiariser le 
lecteur avec le système d'exploitation 
qui supporte le Pascal (ce fameux 
système-P). 

Nous ne nous étendrons pas sur les 
différentes commandes permettant de 
créer et de compiler un programme (ce 
sont à peu près les seules notions qui 
soient clairement décrites dans le 
manuel), nous en avons d'ailleurs déjà 
parlé dans de précédents numéros. 


Le système-P inclut de très puissantes 
caractéristiques que l'on retrouve dans 
l'exploitation de tout langage dit 
“évolué”. 

Avec un tel système d'exploitation, on 
peut créer et gérer des bibliothèques 
de programmes (contenant des modules 
écrits en assembleur ou en Pascal), on 
peut simuler un traitement multitâche 
où des procédures ne s'exécutent pas 
les unes après les autres (comme en 
Basic), mais conjointement; on peut 
encore modifier directement un code 
sans avoir à recompiler le programme. 
En un mot, on a accès à de très 
nombreuses ressources de la machine 


(pas à toutes seul l'assembleur 
permet de TOUT faire). 
L'apprentissage de toutes ces 


possibilités n'est pas aisé (où serait le 
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plaisir) mais, au bout du compte, on 
est largement récompensé de 
l'investissement en temps. 


Je vous propose aujourd'hui une petite 


promenade à travers deux des notions 
les plus complexes des langages de 
haut niveau. 11 s'agit de la compilation 
séparée et des bibliothèques. 


Avant d'aller plus avant, il convient 
d'assimiler la notion d'£W/7, qui est la 
base de cette technique de 
programmation. Le Pascal permet la 
compilation séparée et l'exécution d'un 
programme par morceaux. Prenons un 
exemple précis : le compilateur du 
système-P(SYSTEM.COMPILER) est lui 
même un programme écrit en Pascal 
dont la taille, sur la disquette, est de 
99 blocs (soit prés de 50 Koctets). I] 
est donc impossible de le charger en 
entier dans la mémoire de l'ordinateur 
(notons au passage qu'une fois le 
système d'exploitation chargé, il reste 
bien moins de 48Ko libres pour un 
programme utilisateur, une grosse 
trentaine tout au plus). 


Le compilateur est donc découpé en 
blocs logiques (appelé ZW/75) qui sont 
chargés, exécutés puis ôtés de la 
mémoire au fur et à mesure que 
l'ordinateur en a besoin. Par cette 
technique (appelée 5wapping ou 
over/aÿ on peut faire tourner de très 
gros programmes avec une petite Unité 
Centrale (UC). | 
La grande majorité des systèmes 


d'exploitation utilisent cette 
technique. 
La compilation séparée apporte 


également une plus grande souplesse 
lors du développement d'un programme. 
Un programme de 1000 lignes que l'on 
découpe en dix W/75 de 100 lignes 
est d'une maintenance bien plus aisée. 


Lors d'une modification, seul le 
“morceau” concerné devra être 
recompilé (c'est appréciable quand on 
connaît la lenteur du compilateur du 
TI). Le déverminage (recherche des 
erreurs, ou debugginà d'un 
programme s'en trouve également 
grandement facilité. 


La compilation séparée 
Les Bibliotheques 








Gerard Santraille 


Avec le système-P, la compilation 
séparée se construit donc avec des 
entités appelées CW/75s qui sont 
elles-mêmes des ensembles de 
segments. Différentes CW/75 sont 
alors rassemblées dans un même 
fichier code. Elles constituent alors 
une librairie. Ainsi les différentes 
routines permettant de gérer les sons, 
d'animer les lutins ou de redéfinir les 
caractères, sont regroupées dans 
différentes 4W/75 incluses dans la 
librairie SYS7£ML/BRARF L'intérêt 
d'une telle structure apparaît dès que 
l'on désire utiliser souvent une 
procédure. 


Supposons que VOUS Soyez un 
mathématicien accompli, et que vous 
ayez écrit un ensemble de routines 
calculant la plupart des fonctions 
classiques de trigonométrie 
hyperbolique. Pour pouvoir utiliser ces 
fonctions dans n'importe quel 
programme, il suffit d'inclure dans le 
source du programme : 


(*f$u noa-de-la-librairie *) 
uses nos-de-l'unit ; 


Par ces simples déclarations, tous vos 
programmes auront accès aux 
différentes fonctions. On est bien loin 
du Basic qui ne possède aucune 
structure comparable. 


Après ces considérations générales, 
voyons des exemples concrets. 


L'autre notion fondamentale de gestion 
de la mémoire est le segment. 11 s'agit 
d'une entité logique (comme une 
procédure ou une fonction) dont le code 
ne sera chargé en mémoire qu'au 
moment de son exécution Celle-ci 
terminée, la mémoire occupée sera 
restituée au système. 


La déclaration d'un segment se fait 
très simplement au moyen du mot-clé 
SEGMENT selon : 

SEGHENT PROCEDURE TOTO; 


BEGIN 
END; 
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Une première remarque s'impose; il 
convient de ne pas confondre la notion 
de segment avec celle d'unrt 

Le source d'un segment doit se trouver 
avec celui du programme principal. Un 
segment (contrairement à une unit) est 
compilé en même temps que le reste du 
programme. 


Par contre, il n'est pas chargé en même 
temps que le programme. Pour s'en 
convaincre, écrivons le petit 
programme suivant : 


PROGRAM TEST; 


SEGHENT PROCEDURE TOTO; 
BEGIH 

HRITELN('TOTO") 

END; 


BEGIN 

URITELN('PROGRANNE PRINCIPAL) 
RERDLN; 

TOTO 

END. 


Lors de l'exécution du programme, 
l'ordinateur ne va pas charger la 
procédure 7070. 11 écrit PROGRAMME 
PRINC/PAL et attend que vous 
appuyiez sur ÆW7ER (READLN;). Si l'on 
presse sur ZÆW7£R, le lecteur de 
disquette se met effectivement en 
marche et charge le segment 7070. 


Remarque technique : les segments 
doivent être déclarés avant les 
procédures classiques. Si une 
procédure-segment appelle une 
procédure non-segment cette dernière 
doit être déclarée /0RWAADSelon : 


PROGRAM TEST2; 

PROCEDURE PR2; FORUARD; 

SEGNENT PROCEDURE PRI; 
BEGIN (* DEBUT DE PRI*) 


END; 
PROCEDURE PR2; 
BEGIN (+ DEBUT DE PR2 *) 


END; 
SEGHENT PROCEDURE PR3; 
BEGIN (* DEBUT DE PA3 *) 


END; 
BEGIN (* DEBUT DE TEST2 *) 
END. 


Détaillons maintenant la structure des 
units. Bien que beaucoup plus 
complexe, elle se décompose en cinq 
parties distinctes l'en-tête, 
l'interface, l'implémentation, l'initia- 
lisation et la terminaison. 


L'en-tête est constitué par le mot-clé 
UN/T suivi de son nom. 


L'interface contient les déclarations 
(procédures ou fonctions) qui pourront 
être utilisées par un programme 
faisant référence à cette unit. Cette 
section est souvent appelée partie 
publique de l'unit. Elle se compose du 
mot-clé /W7£RFACE (sans ”;") et du 
nom de toutes les procédures. 


L'implémentation est constituée par 
tous les corps de toutes les procédures 
ou fonctions déclarées dans l'interface. 
Elle débute par le mot-clé 
/MPLEMNENTATION 


Les deux dernières parties 
(/NIT/AL/SATIONet TERMINA/SON ) 
contiennent un bloc d'instructions 
Pascal entre un S£G/Wet un ÆWD Ces 
instructions permettent d'initialiser 
et de terminer (si nécessaire) les 
diverses composantes de l'unit. La 
partie /W/T/AL/SAT/ON est séparée 
de la partie 7£RM/NA/SONpar la ligne 


226%." 
, 


Ces deux sections peuvent être vides 
toutes les deux. Remarque importante : 
ces deux sections d'instructions 
s'exécutent avant (respectivement 
après) toute instruction du programme 
faisant référence à l'unit, et non pas à 
chaque appel d'un de ses éléments. 


Un grand classique du Pascal (la 
fonction factorielle) dans une unit 
s'écrirait de la façon suivante: 


UNIT HATH; 
INTERFACE 

FUNCTION FACTORIELLE 

(1: INTEGER) : INTEGER; 
INPLEHENTAT ON 

FUNCTION FACTORIELLE; 
BEGIN 

IF N=0 THEN FACTORIELLE:=1 
ELSE FACTORIELLE :=FACTORIELLE(N-1) 
END; 

BEGIN 

#*t, 

END. 


Après compilation, le fichier code 
généré sera considéré comme une 


bibliothèque et pourra donc être utilisé 
en temps que tel. On pourra alors 
utiliser la fonction factorielle en 
déclarant dans le programme appelant : 


(*$u non-du-fichier-code) 
uses sath; 


N'oubliez pas que, lors de la 
compilation, la bibliothèque doit être 
accessible par le compilateur. 


Lors de l'exécution, l'ordinateur doit 
savoir dans quelle bibliothèque 5e 
trouve l'unit math : la directive (*$u 
nom-du-fichier-code *) ne lui suffit 
pas. 


Le nom de ce fichier doit se trouver 
dans un fichier texte qui a par defaut 
le nom *vser./ib (l'étoile représente 
le volume racine, c'est-à-dire celui qui 
a démarré le système. On peut changer 
le nom de ce fichier code en faisant en 
mode commande : X pour eXecute puis 
en tapant L=nouveau-nom, nouveau-nom 
se substituera alors à US£ARL/B8. TENT. 


Tout ceci peut paraître bien lourd 
mais, avec un peu de pratique, on manie 
très rapidement les bibliothèques. Une 
fois ces mécanismes acquis, on ne 
conçoit plus la programmation en 
Pascal sans l'aide des bibliothèques. 


étapes 
d'une 


différentes 
l'emploi 


Résumons les 
nécessaires à 
bibliothèque : 


e créer, avec l'éditeur, l'unit, 

e la compiler; 

e mettre le nom de la bibliothèque (il 
s'agit du nom du fichier) dans un 
fichier text s'appelant vser/ib tel 
et situé sur le volume racine; 

e déclarer à nouveau le nom de la 
bibliothèque dans le programme 
utilisant l'unit par la directive (*$U 
NOM-DE-LA-BIBLI*); 

e déclarer l'utilisation de l'unit par 
USES NOM-DE-L'UNIT. 


Pour utiliser plus simplement une unit, 
il existe une autre technique : on peut 
la mettre dans la librairie standard du 
système *SYSTEMLIBRARY qui n'a pas à 
être déclarée (il sera quand même 
nécessaire de mettre dans le 
programme appelant USES NOM-DE- 
L'UNIT;). 


C'est l'utilitaire Z/8RAAF qui se 
charge de cette tâche. Ce programme 
permet par ailleurs de grouper en une 
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seule librairie plusieurs units. 


Son utilisation est assez délicate et 
fera certainement l'objet d'un article 
détaillé dans un prochain numéro. 
Supposons que le fichier sous-lequel 
nous avons sauvegardé notre unit math 
s'appelle mathun't (quelle 
imagination !). Lançons le programme 
library (il se trouve sur la disquette 
contenant tous les utilitaires) avec 
eXecute en mode commande. 

La première question est Ovéput 
file 2? Pour ajouter une unit à la 
bibliothèque système tapons 
*LIBRARY2. Nous changerons plus tard 
le nom de ce fichier en 
#SYSTEMLIBRARY. S'il “s'agit de la 
création d'une nouvelle bibliothèque il 
faut taper le nom de celle-ci. 

Le programme ouvre alors le fichier 
concerné comme fichier de sortie : il y 


mettra toutes les units que nous 
voudrons. Dans un premier temps nous 
allons mettre dans *LIBRARY2 toutes 
celles de *SYSTEMLIBRARY. Nous 
spécifions donc  *SYSTEMLIBRARY 
comme /nput file ?, qui est la 
question suivante. Le programme 
affiche alors la liste de son contenu (7 
units). Nous pressons ensuite la lettre 
Æ pour Every, et tous les units de 
XSYSTEMLIBRARY (input file) sont 
copiés sur *LIBRARY2 (output file). Une 
fois le transfert accompli, nous 
sélectionnons un autre fichier d'entrée 
en pressant # pour New, nous 
sélectionnons bien entendu *MATHUNIT 
puis Æà nouveau pour copier toutes les 
units de MA7HUN/T(dans notre cas, il 
n'y en a qu'une) sur //BRARF2 Le 
nouveau contenu de cette dernière 
s'affiche alors et on s'aperçoit qu'elle 


contient bien /447# On a donc bien 
créé une bibliothèque unique 
regroupant les units de *SYSTEM. 
LIBRARY et de *MATHUNIT. 


Il ne nous reste plus qu'à détruire les 
deux anciennes et à changer (avec le 
Filer) le nom de %*LIBRARY2 en 
SYSTEM. LIBRARY. 


Nous voilà au terme de notre première 
excursion dans le monde étrange de la 
compilation séparée. Ne vous inquiétez 
pas si certains points vous semblent 
encore obscurs. Laissez décanter et 
perséverez.. 

O 


Trouvez votre chemin dans les jeux 


Vous êtes l'heureux possesseur du 
module “Adventure” et d'une ou 
plusieurs cassettes de jeux d'aventure, 
mais le vocabulaire anglais vous arrête 
un peu. Nous vous proposons deux 
programmes pour la mini-mémoire, qui 
vous permettrons d'afficher sur l'écran 
où d'écrire sur votre imprimante la 
partie texte contenue dans les 
cassettes et, en particulier, le 
vocabulaire connu par le jeu. Tout ceci 
devrait vous permettre d'explorer 
ensuite les aventures plus facilement. 


Affichage sur l'écran 


Mode d'emploi 


e insérer la Mini-mémoire et charger, 
avec “EASY BUG" ou l'assembleur 
ligne par ligne, le programme 
suivant; 

e charger la cassette de jeu voulue en 
Basic (OLD CS1) sans se préoccuper 
du message d'erreur final; 

e taper CALL LINK("LAVENT") 
faire “ENTER”; 

e le contenu texte de la cassette 
s'affiche alors écran par écran; 


puis 
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e vous passez d'un écran au suivant en 
appuyant sur une touche quelconque, 

e arrivé au dernier écran, Vous 
pouvez revoir le contenu de la 
même cassette en recommençant 
au point 3. 


Plan du texte 


e introduction commune à tous les 
jeux d'aventure; 

e partie incompréhensible qui 
correspond probablement à un 
programme en langage machine; 
long texte regroupant les morceaux 
de phrases que vous voyez apparaître 
sur l'écran en majuscules, par les 
trois ou quatre premières lettres de 
chaque nom connu par le jeu; 
une autre partie de texte en 
majuscules, correspondant aux trois 
ou quatre premières lettres des 
verbes connus par le jeu. 


Schéma du programme 


Le contenu de la cassette de jeu se 
charge en mémoire vidéo à partir de 
l'adresse 20709, jusqu'à l'adresse 
>2E3F au maximum semble-t-il, pour 


d'aventure TI 


Deruse Amrouche 


les jeux que j'ai pu tester. Il est 1u par 
tranches de 28 octets et chaque octet 
est examiné. S'il correspond à un code 
ASCII  affichable, le caractère 
correspondant est mis dans la table 
d'écran, alors qu'il est remplacé par un 
espace dans le cas contraire. On 
remplit ensuite la page écran complète 
et on attend qu'une touche soit 
enfoncée pour recommencer avec la 
page suivante. 


Voir listing ! 


Ecriture sur 
l'imprimante 
Mode d'emploi 


insérer la Mini-mémoire et charger 
le programme suivant, 

charger la cassette de jeu voulue en 
Basic (OLD CS1) sans se préoccuper 
du message d'erreur final; 
taper CALL  LINK(IAVENT") 
"ENTER"; 

le texte s'imprime. 


puis 


Le programme est écrit pour une 
imprimante EPSON branchée en 
parallèle. 





Listing 2 (imprimante) CB R5,aC0 


BL 
7D00 ACRG )>7E00 CB RS, dCO+1 


JH BL 
*TAMPF. EN >7DFE SUR 80 OCTETS 

SUPB R35 
#L'ADRESSE )>7DAQ EST UTILISEE MOV  R5,%xR1+ 


CI R1,>7DFE 


#E00 DS20 MOUB 9>95802,a>7DFE JLT Bi 
FE02 FEeû2 
7E04 70FE LI RO,>3100 
7EÙ0é O6éEQ SWUPR 427DFE 
7E08 7DFE LI R1,>7DA0 
7E0À D320 MOVR 4>97802,a)7DFE 
7E0C 5802 LA R2,80û 
7E0E ?7DFE 
7E10 CéEO SUPB 4>7DFE 2)>60223 (CUMEW) 
7E12 7DFE 
7E14 Qézû DEC 4>7DFE 21M 
7E16: 70FE 
R4,22ZE3F 
FEi8 0zGn LI RO,>300û 
7EiA 3000 FI 
FEIiC azûi LT R1,PD BO 
7EIE 7EFé 
7E2Z0 Q202 LI R2,13 RQ ,>1D00 
7E22 0OG0D 
7E24 604Zû 3>6028 (VMBUW) Ri,0100 
7E26 6028 
7E2S OéA aIM 


ad>6024 (USEL) 
7EZA 7EDA 


aIM 
7E2C q200 RO ,>3000 


7E2E 3000 

*E30 OZü1 R1,>0300 

7E22 G200 

rE34 ü42û a>46024 (USE) 
TE36 6024 


2>7DFE,2>7C02 


a>7DFE 


A a>7DFE,a>7C02 
7EZ8 GZzOQ : RO,>23005 


FE38 3005 

7E3C üzQl R1,>5000 

7E3E S000 

7E40 ü4zû a>6024 (USRUW) 
7E42 6024 


RO 
RO ,8>837C 


>83E0 


7E44 204 R4,)>6B8 4>0070Q 
TEd4é O6Es 


7E48 0224 R4,50 
7E4A 0050 PU ee 
7E4C C004 R4 , RQ re 
7E4E 0201 R1 ,>7DA0 , 

7ES0 7DA0 _ 

7ES2 0202 R2,80 Les 

7E54 0050 


7E5é 0420 a>6030 (UMBR) 
7E58 6030 LI R10,>3009 


MOV  R10,3>8354 
7ESA C151 *R1 ,RS à : 


7ESC 0407 CLR R7 
7ESE 9805 CB RS, dCO 
7Eé60 7EF2 

7E62 1235 BL rore 


BLUP 326038  (DSRLNK) 


LI R10,50 
7Eé4 9805 CB RS,aC0+1 


7Eéé 7EF23 


C RIO 
7E68 1832 JH BL NE +-2 


B #R11 
7Eé6A 06C5 SUPB RS 
7E6C 0587 INC R7 DATA >207E,)2000 
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DATA >0002,>3100,>5000, BL 
>0000,>0003 rs RS,36000 


RS 


: | : RS ,#R1+ 
TEXT ‘PIO. R1,)7E00 


gi 
AORG >7FF8 Ré, RO 


Ri,)7DD8 
TEXT ‘ IAVENT”’ 


DATA >7E00 
AORG >701C CI R4,)2E3F 


DATA >7F04,3>7FF8 FI 


, AI Ré,32 
END 


CI Ré,22FF 


JGT SC 
a ; JMP  BO 
Listing 1 (écran) CLR RO 


MOVE RO ,4>837C 


AORG >7E00 LWPI 


0204 LI ,R4,)6ED 

06ED B 

0206 LI  Ré,2 
0a0? 
207E C DATA )207E 
e000 DATA >8000 

a4co CLR RO 
0201 LI R1,)8000 pe 

eaao 83 

+ Ré ,2 

0202 LI R2,768 0 
0200 
0420 BLWP 4)>6024 2>8374 
6024 È 

1902 JMP 51 d?6020 
nn MOVB R1,24>8C00 genre @ià 
o4a2 DEC R2 

16FC JNE 52 R13,2FF00 
G224 AI R4,)1C 
001€ R14,)2000 
Coq MOUV  R4,RO 
a201 ÉI Ri,)7DD8 R14,R13 
7008 sc 
0202 LI  R2,28 4)8375,RQ 
001C 
420 BLWP 2>6029 RO ,>FFOQ 
6030 
C151 MOU  #R1,RS 
04C7 CLR R7 

9205 CB  RS,29C0 

7E08 

122B JLE BL 

9805 CB RS,4CO+1 

7E0? 

1828 JH BL / LAVENT ‘ 
0225 AI  RS,)6000 

6000 

04CS SWPB RS >7EQû 
0587 INC R7 

5805 CB  RS5,4C0 >701C 
7E08 

122} JLE EL )7ECE ,)7FF@ 
5205 CB R5,2C0+1 
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28 


Srand 


Georges Goument 


NDLR: ce programme peut être 
sauvegardé sur disquette (avec 
CALL FILES (12) mais ne 
fonctionne pas Si le contrôleur 
est raccordé. 


Ce jeu, écrit en Basic TI, consiste à 
éliminer tous les pions de son 
adversaire. Chaque joueur déplace 
alternativement ses pions en suivant 
colonnes où diagonales, mais jamais 
une ligne, en jeu normal. 


Le plateau de jeu est formé de 9 
lignes, 9 colonnes et 14 diagonales. 
Dans la pratique, les lignes et colonnes 
2, 4,6 et 8 n'apparaissent pas. 


Les pions ne peuvent reculer ou se 
déplacer latéralement que dans le cas 
d'une prise de pion adverse. Chaque 
pion pris est retiré du jeu. On est 
obligé de prendre, et toujours le 
maximum de pions. 


La rafle où prise multiple, est 
annoncée par le joueur qui l'effectue. |] 
doit dire le nombre de pions qu'il 
compte prendre et, si l'adversaire lui 
démontre qu'il pouvait en prendre plus, 
il souffle le pion devant effectuer la 
rafle et prend le tour de jeu de son 
adversaire. Contrairement au jeu de 
dames, lors d'une rafle, les pions sont 
pris un par un et retirés du jeu au fur 
et à mesure. 


Lorsqu'un pion atteint la ligne adverse 
la plus reculée, ce pion est promu 
Su/tan Le sultan se déplace en toutes 
directions, sur n'importe quelle 
distance, et prend les pions adverses 
placés sur sa trajectoire à condition 
que la case située immédiatement 
après soit libre 


Chaque partie débute par une rencontre 
qui est conventionnellement toujours 
identique (voir détails plus loin). Ce 
sont les pions jaunes qui débutent 
cette rencontre. 


Le Srand avec le TI 


La couleur du pion qui joue et Îles 
différentes phases d'un coup joué sont 
affichées à gauche pour les pions 


noirs, à droite pour les pions jaunes. 
Un symbole pour chacune des phases du 
jeu, ainsi que le clignotement du pion 
joué, et du pion pris s'il y a une prise, 
offrent une meilleure vue d'ensemble 
dans le déroulement d'un COUP. 


Les symboles sont les suivants : 

e D noir sur fond rouge - pion à 
déplacer; 

e P noir sur fond cyan - pion à 
prendre (en cas de prise); 

e A noir sur fond vert - case 
d'arrivée. 


Ces symboles s'affichent. également en 
regard des numéros de ligne et de 
colonne choisis (coordonnées des pions 
joués). 

Important : tapez toujours le numéro 
de ligne en premier. 


Déplacement d'un pion sans 
prise 


Taper les deux coordonnées D, appuyer 
sur la touche “N’, taper les deux 
coordonnées À Le pion effectue son 
déplacement. 


Prise d'un pion 


Taper les deux coordonnées D, les deux 
coordonnées du pion à prendre puis 
celles de la case A Le pion quitte sa 
case, prend le pion adverse et occupe 
sa nouvelle place. 


Rafie ou prise multiple 


Taper les coordonnées D, appuyer sur 
"R”, puis taper le nombre de pions à 
prendre (touches. 2 à 9). Si votre 
adversaire est d'accord, taper les deux 
coordonnées P, puis A. Lorsque chaque 
pion est pris, recommencer D, P et A 
autant de fois que nécessaire; ne plus 
s'occuper de la touche "R”. 


Pion souffié 


Une pression sur la touche “5” provoque 
le changement de joueur. Taper ensuite 
uniquement D et P. Le joueur qui 
souffle garde la main et rejoue 
normalement. 


Annulation 


La touche “A” permet de jouer un autre 
pion Cette annulation est faite 
automatiquement en cas d'erreur. 


Fin de partie 
La touche “l" arrête la partie en cours. 


Récapitulatif des touches 


N _: pas de prise; 

R :rafle; minimum 2, maximum 9 (si 
plus, recommencer); 

S : pion soufflé; 

A : annulation d'un Coup; 

I : fin de partie; 

1 à 9 : coordonnées X et Ÿ des pions; 

2 à 9 avec R : nombre de pions reflés. 


Le jeu avec un Sultan se pratique de la 
même façon, seuls les déplacements ne 
sont plus limités. 


Déroulement d'une 
rencontre en 12 coups 


Taper les 2 chiffres sous chaque 
symboles; cette rencontre permet de 
se familiariser avec le jeu et ses 
différents modes d'affichages. 


Symboles -> D_ | 2 


Jaune 
Noir 
Jaune 
Noir 
Jaune 
Noir 
Jaune 
Jaune 
Noir 
10 Jaune 
11 Noir 
12 Jaune 


PP 


: 
re 
: 


DO © JU D À ND 
8 Où O1 Gi O1 O1 U1 ND) U1 Gi oO 
OU B Où Ci Ci U1 UN) — CO R 
D 
N 
BUT U1 B UT U1 B  B BR U1 
B BURN BR CU UN RU 
B B O1 O1 U1 O1 Ci BR Ci U1 R Un 
W B D 0 — CU CR Ci UT R U1 


Fin de la rencontre; les pions noirs 
commencent la partie libre. 
E 
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REM YXXXYEEEÉÉEEÉEÉEEEX 
REM # 
REM SRAND * 
REM # 
REM ÉXÉYEEREEEEÉEEEERE 
REM +* * 
REM * BASIC TI # 
REM *# * 
REM *x###ÉEEXEEEEÉEERERE 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM GOUMENT 
REM +* È 
REM XEYYEXEREELEEEEXXX 
GOSUB 7000 se 
PRINT TARB(11)3"LE SRAND'"::TABC11) ;"aa 
@ad"::: 

230 PRINT " Ce jeu national Mauritanienes 

t une variante elaboree dujeu de dames. 

340 PRINT " Lez possibilites deco 

binaisons sont multiples ce qui le ren 

d fascinant et" 

350 PRINT "vous garantis un agreable pa 


COPYRIGHT 


77 MAGAZINE 


& 


GEORGES 


KM OKON OKON OX XX 
OK KO K OK KO OK OK KO K 


FOR D=1 TO 800 

NEXT D 

CALL CLEAR 

FOR'1=33 TO 39 

READ À 

CALL CHAR(I ,A$) 
420 NEXT I 
430 DATA "FFFFFFFFFFFFFFFF","0000001F1010 
101","000000FF","000000F01010101" 
440 DATA "1010101010101010","1Q010101F","1 
01010F" 
450 FOR 1=88 TQ 105 
460 READ À$ 
470 CALL CHAR(I,A#) 
480 NEXT I 
470 DATA "OG0GG001F10141211","Q0000Q0FF","0 
00000FF00000001","000000FF10549211","10 
10101G01010101" 
500 DATA "S040201008040201","000000090000 
0001","0204081020408","8244281028448201 
","1010101010101011" 
510 DATA "1214101F10141211","925410FF0054 
PRIT ADLAIOIF", "92541 0FF" 
520 DATA "G00000F01050701","9S05010F","905 
O10F01050701","0" 
530 FOR 1=40 TO 47 
540 READ À 
550 CALL CHAR(I ,4#) 
Sé0 NEXT I 
570 DATA "OOSA8I183CééFF" ,"OQOFFé43CI 881 SA 
","4442705A54706244","22440ESASA0E4622" 
580 DATA "80423134041C4221","01428C2C2038 
4284","e44238202C8C4201","21421C0434314 
28" 
570 CALL CHAR(4é4,"7C242423C30282424") 
600 CALL CHAR(éé,"3C24203C0404243C") 
619 CALL CHAR(6é7,"2C20202382020203C") 
620 CALL CHAR(6B,"223232242A262622") 
630 CALL CHAR(128,"007C242424247C") 
640 CALL CHAR(136,"007C24243C202") 
650 CALL CHAR(144,"003C24243C2424") 
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660 CALL CHAR(120,"2C7EFFFFFFFF7E3C") 
670 CALL CHAR(112,"3C7EFFFFFFFF7E3C") 
680 CALL CHAR(15S2,"FFC3DFC3FBFBC3FF") 
650 CALL CHAR(153,"Q03C202C04043C") 
700 PRINT TAB(6):;"1 23 4567 8 S'::TAB 
(4);"9"3;TAR(24);"9"::TAB(4) ;"8" ; TAR(Z4) 
;"8"::TAB(4);"7"; TAB(C24);"7":: 

710 PRINT TAB(4);"é":;TAB(24);"é"::TAR(4): 
"5"; TAB(24):"S"::TABC4):; "4": TAB(24);"4" 
::TAR(4); "3"; TAR(24);"3":: 

720 PRINT TAB(4);"2";TAB(24);"2"::TAB(4); 
PAS TABC24); "1" :: TAB); "1 2 3 4 5 € 7 
8 P'sss 

730 FOR I1=8 TQ 24 

740 CALL LVCHAR(3,1,105,17) 

750 NEXT I 

760 FOR 1=7 TO 246 STEP 2 

770 CALL HCHAR(I,1,33) 

780 CALL HCHAR(21,1,33) 

770 NEXT I 

2800 FOR 1=2 TO 20 STEP 2 

810 CALL VCHAR(I,4,32) 

820 CALL LCHAR(I,26,33) 

830 NEXT I 

840 CALL HCHAR(1,6,323) 

850 CALL HCHAR(1,24,323) 

840 CALL HCHAR(C21,46,32) 

870 CALL HCHAR(21,246,33) 

880 CALL HCHAR(2,7,44) 

870 CALL HCHAR(2,8,40,17) 

00 CALL HCHAR(2,25,45) 

710 CALL VCHAR(3,25,42,17) 

S20 CALL HCHAR(20,25,46) 

930 CALL HCHAR(20,8,41,17) 

740 CALL HCHAR(20,7,47) 

950 CALL VCHAR(3,7,43,17) 

740 FOR 1=8 TQ 24 STEP 2 

970 FOR Y=3 TO 11 STEP 2 

980 CALL HCHAR(Y,I1,112) 

950 NEXT Y 

1000 FOR Y=13 TO 197 STEP 2 

1010 CALL HCHAR(CY,1,120) 

1020 NEXT Y 

1030 NEXT I 

1040 FOR I=18 TO 24 STEP 2 

1050 CALL HCHA4R(C11,1,120) 

{Gé NEXT I 

1070 FOR I=9 TO 24 STEF 4 

1080 FOR Y=23 TG 15 STEP 4 

1050 CALL HCHAR(Y,1,89) 

1100 NEXT Y 

1110 FOR Y=4 TO 14 STEP 

1120 CALL HCHAR(Y,1,73) 

1130 NEXT Y 

1140 FOR Y=S TO 17 STEF 

1150 CALL HCHARCY,1,94) 

1160 NEXT Y 

1170 FOR Y=é6 TO 18 STEP 

1180 CALL HCHAR(Y,1,75) 

1190 NEXT Y 

1200 NEXT I 

1210 FOR I1=10 TQ 22 STEP 4 

1220 FOR Y=4 TO 16 STEP 4 

1230 CALL HCHAR(Y,1,94) 

1240 MNEXT Y 

1250 NEXT I 

1260 FOR I1=11 TO 23 STEF 4 

1270 CALL HCHAR(19S,1,87) 

1280 FOR Y=3 TO 15 STEF 4 

1290 CALL HCHAR(Y,1,90) 

1300 NEXT Y 

1310 FOR Y=4 TO 14 STEP 4 
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CALL HCHARCY,1,955) 2040 GOTO 2070 

NEXT Y 2050 P=144 

FOR Y=é TO 18 STEP 2060 CC=19 

CALL HCHARÇCY,1,93) 2070 CALL HCHAR(CC,CJ,P) 
MEXT Y 2080 CALL KEY(3,T,S) 

NEXT I 2070 IF R()>1 THEN 2110 

FOR 1=8 TO 20 STEP 2100 CALL HCHAR(23,16,PP) 
FOR Y=4 TO 18 STEP 2110 IF XD=0 THEN 2350 
1400 CALL HCHARCY,1,97) 2120 CALL HCHAR(YD,XD,105) 
1410 NEXT Y 2130 IF W=1 THEN 2190 

1420 NEXT I 2140 IF SJ=1 THEN 2170 
1430 FOR 1=8 TO 24 STEP 2150 CALL HCHAR(YD,XD,120) 
1440 FOR Y=4 TO 16 STEP 2160 GOTO 2220 

1450 CALL HCHAR(Y,1,92) 2170 CALL HCHAR(YD,XD,152) 
idéü NEXT Y 2180 GOTO 2230 

1470 NEXT I 2190 IF SJ=1 THEN 2220 
1480 FOR 1=4 TO 18 STEP 2 2200 CALL HCHARCYD,XD,112) 
1490 CALL VCHAR(I,24,92) 2210 GOTO 22390 

1500 NEXT I 2220 CALL HCHAR(YD,XD,153) 
1510 CALL HCHAR(11,16,96) 2230 IF XP=0 THEN 2250 
1520 CALL COLOR(1,10,1) 2240 CALL HCHARCYP,XP,105) 
1530 CALL COLOR(2,16,10) 2250 IF L=i THEN 2310 

1540 CALL COLOR(3,5,10) 2260 IF SP=1 THEN 2290 
1550 CALL COLOR(4,5,10) 2270 CALL HCHARÇCYP,XP,112) 
1560 CALL COLOR(S,4,1) 2280 GOTO 2350 

1570 CALL COLOR(13,2,9) 2290 CALL HCHARÇCYP,XP,153) 
1580 CALL COLOR(14,2,8) 2300 GOTO 2350 

1590 CALL COLOR(15,2,3) 2310 IF SP=1 THEN 22340 
1600 CALL COLOR(14,11,2) 2320 CALL HCHAR(YP,XP,120) 
1610 CALL COLOR(11,2,8) 2230 GOTO 2250 

1620 CALL COLOR(12,11,8) 2340 CALL HCHAR(YP,XP,152) 
1630 FOR I=8 TO 10 2350 IF S=0 THEN 2080 

1440 CALL COLOR(I,13,8) 2360 CALL HCHAR(23,16,232) 
1450 NEXT I 2370 IF T<>4S THEN 2430 
iéén CALL HCHAR(22,15,34) 2380 IF CS=1 THEN 2410 
1470 CALL HCHAR(22,16,35) 2250 Y=19 

1é80 CALL HCHAR(22,17,24) 2400 GOTO 3750 

1470 CALL HCHAR(23,15,27) 2410 X=8 

1700 CALL HCHAR(223,17,37) 2420 GOTO 3810 

1710 CALL HCHAR(24,15,28) 2430 IF T{)50 THEN 2490 
17Z0 CALL HCHAR(24,16,35) 2440 IF CS=1 THEN 2470 
1730 CALL HCHAR(24,17,29) 2450 Y=17 

1740 XD=0 2460 GOTQO 3750 

1750 XP=0 2470 X=10 

1760 Ui=48 2480 GOTO 3810û 

1770 U2=52 2490 IF T<>51 THEN 2550 
1780 LVi=4s 2500 IF CS=1 THEN 2530 
1790 U2=52 2510 Y=15 

1800 W=Q 2520 GOTO 3750 

1810 N=0 2530 X=12 

1220 F=0 2540 GOTO 3810 

1820 CS=0 2550 IF T()52 THEN 2610 
1840 IF W=i THEN 1900 2560 ,I1F CS=1 THEN 2590 
1850 CJ=28 2570 Y=13 

1840 G=42 2580 GOTO 3750 

1270 0=25 25$0 X=14 

1880 Z=120 | 2400 GOTO 3810 

1870 GOTO 1940 2410 IF T<>53 THEN 2470 
1500 CJ=4 2620 IF. CS=1 THEN 2450 
1710 G=43 2630 Y=11 

1520 O=7 2440 GOTO 3750 

1930 2Z=112 2450 X=14 

1740 CALL SOUND(10,660,5) Zéé60 GOTO 3810 

1750 CALL SOUND(10,550,5) 2670 IF T<>54 THEN 2730 
1760 CALL HCHAR(13,CJ,2) 2680 IF CS=1 THEN 2710 
1970 IF N=2 THEN 2020 2690 Y=$ 

1580 IF N=4 THEN 2050 2700 GOTO 3750 

1550 P=128 2710 X=18 

2000 CC=15 720 GOTO 3810 

2010 GOTO 2070 2730 IF T<)55 THEN 2790 
2020 F=12 2740 IF CS=1 THEN 2770 
2030 CC 2750 Y=7 


un pa me pe me ne me me 
Q 6) & (9 ©) 0) 0) 0) 
© C0 -J OU & © F) 
000000 
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GOTO 2750 

X=20 

GOTO 3810 

IF T{>56 THEN 2850 
IF CS=1 THEN 28230 
Y=5 

GOTO 3750 

X=22 

GOTO 3810 

IF T<)57 THEN 2910 
IF CS=1 THEN 2850 
Y=3 

GOTO 2750 

X=24 

GOTO 3810 

IF T()82 THEN 3330 
CALL HCHAR(23,16,64) 
R=1 

CALL SOUND(50,550,10) 
CALL KEY(2,T,S) 

IF S=0 THEN 2550 

IF T(>50 THEN 3010 
D=2 

PP=50 

GOTO 3280 

IF T()51 THEN 

D=2 

PP=51 

GOTO 3280 

IF T<)52 THEN 

D=4 

PP=52 

GOTO 2280 

IF T<)>53 THEN 

D=5 

PP=53 

GOTO 3280 

IF T<>54 THEN 

D=é 

PP=54 

GOTO 3220 

IF T<>55 THEN 

D=7 

PP=55 

GOTO 2280 

IF T<)54 THEN 

D=8 

PP=56 

GOTO 3280 

IF T(>57 THEN 2950 
D=9 

PP=57 

CALL HCHAR(23,146,PP) 
CALL SOUND(S,1200,0) 
FOR DELAI=1 TO 100 
NEXT DELAI 

GOTA 2080 

IF T(>83 THEN 3450 
CALL HCHAR(23,16,66) 
R=2 

CALL SOUND(S0,550,10) 
FOR 1=13 TO 19 STEP 2 
CALL VCHARCI ,CJ, 22) 
NEXT I! 

IF W=i THEN 3430 

W=1 

GOTO 1840 

W=0 

GOTO 1840 

IF T<)78 THEN 3539 
CALL HCHAR(23,16,68) 
N=N+ 2 
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3480 
2450 
3500 
3510 
3520 
3530 
3540 
2550 
35460 
3570 
3580 
3570 
3400 
3610 
3620 
34630 
3440 
3450 
3640 
3670 
3460 
34670 
3700 
3710 
3720 
3730 
3740 
3750 
3760 
23770 
3780 
3770 
3800 
3810 
3820 
3830 
3840 
3850 
3840 
3870 
3880 
3890 
2700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
3980 
3990 
4000 
4010 
aa2û 
4030 
440 
4050 
4ûéa 
4970 
aaso 
4070 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
a1sû 
4190 


F=3 
CALL HCHARCY,0,0) 
CALL HCHAR(20,X,41) 
CALL SOUND(50,550,10) 
GOTO 1970 

IF T<>73 THEN 3550 
GOTO 6570 


IF T<)és THEN 2080 


CS= 

SJ=0 

SP=0 

CALL VCHAR(3,0,0,17) 
CALL HCHAR(20,8,41,17) 
XD=0 

XP=0 

IF R=1 THEN 2650 

P=0 

N=0 

FOR 1=15 TO 19 STEP 2 
CALL HCHAR(I ,CJ,32) 
NEXT 1! 

FOR I=1 TO 4 

CALL HCHAR(23,16,47) 
CALL SOUND(20,523,10) 
CALL HCHAR(23,16,32) 
NEXT I 

GOTO 1970 

REM 

CALL HCHAR(Y,0,P) 
CS=1 . 

N=EN+ 1 

CALL SOUND(10,330,10) 
GOTO 2080 

CALL HCHAR(20,X,P) 
CS=0 

NEN+ 1 

CALL HCHARCY,0,0) 
CALL HCHAR(20,X,41) 
CALL SOUND(10,230,10) 
IF N=2 THEN 2700 

IF N=4 THEN 4070 

IF N=é THEN 42340 
YD=Y 

XD=X 

CALL GCHAR(CYD,XD,CD) 
IF W=i THEN 3790 

IF CD<>120 THEN 3960 
GOTO 1970 

IF CD<>152 THEN 3560 
SJ=1 

GOTO 1970 

IF CD()112 THEN 4010 
GOTO 1970 

IF CD<)>153 THEN 3560 
SJ=1 

GOTO 1970 

IF R<>2 THEN 1970 
N=N+ 2 

GOTO 1970 

YP=Y 

XP=X 

IF R<>2 THEN 4130 
YN=YP 

XN=XP 

GOTO 4750 

CALL GCHARCYP,XP,CP) 
IF W=i THEN 4220 

IF CP=120 THEN 3560 
IF CF=152 THEN 3560 
IF CP<>112 THEN 4190 
GOTO 4280 

IF CP<)153 THEN 23560 





31 


32 


a2aû 
4210 
4z2û 
4230 
424û 
4250 
424û 
427 
4:50 
4250 
4z:Gû 
4310 
432û 
4230 
4:40 
350 
3é6û 


4420 
4450 
4500 
451 
4=20 
4530 
4540 
4550 
4560 
4570 
4580 
4590 
4400 
4410 
4é2û 
4630 
4440 
4450 
4660 
44670 
4620 
4490 
470û 
4710 
4720 
4730 
4740 
4750 
474û 
4770 
4780 
4770 
4800 
4310 
4220 
4230 
424û 
4350 
géo 
4270 
482 
4290 
450 
4710 


SF=1 

GOTO 4280 

IF CF=112 THEN 3540 
IF CF=153 THEN 3560 
IF CP<)120 THEN 4260 
GOTO 4280 

IF CP<)152 THEN 3560 
SP=1 

IF SJ=1 THEN 1970 

IF YP=YD-2 THEN 1970 
IF YP=YD+2 THEN 197 
IF XF=XD+2 THEN 1970 
IF XP=XD-2 THEN 1970 
GOTO 2540 

YN=Y 

XN=X 

IF R<>2 THEN 4380 
GOTO 4790 

CALL GCHARCYN,XN, CA) 
IF CA=112 THEN 3540 
IF CA=1Z0 THEN 3560 
IF CA=152 THEN 2560 
IF CA=153 THEN 3540 
IF R=3 THEN 4900 

IF YF=YD THEN 4450 
IF XP=XD THEN 4530 
IF YP<YD THEN 4570 
IF YP>YD THEN 4680 
GOTO 2560 

IF YNCDYP THEN 3540 
IF XN=XP-2 THEN 4590 
IF XN=XP+2 THEN 4990 
GOTO 3540 

IF XNCDXP THEN 2560 
IF YN=YP-2 THEN 49550 
IF YN=YP+2 THEN 4790 
GOTO 3560 

IF SJ=1 THEN 4790 

IF XPC)XD-2 THEN 4430 
IF XN=XP-2 THEN 4610 
GOTO 3560 

IF YN=YP-2 THEN 4990 
GOTO 3560 

IF XP<)XD+2 THEN 3560 
IF XN=XP+2 THEN 4660 
GOTO 3540 

IF YN=YP-2 THEN 4990 
GOTO 3560 

IF SJ=1 THEN 4770 

IF XPC)XD-2 THEN 4740 
IF XN=XP-2 THEN 4720 
GOTO 3560 

IF YN=YP+2 THEN 4950 
GOTO 3560 

IF XPC)XD+2 THEN 3560 
IF XN=XP+2 THEN 4770 
GOTO 2560 

IF YN=YP+2 THEN 4970 
GOTO 35460 

IF XP)>YD THEN 4850 
IF YN=YP-2 THEN 4820 
GOTO 35460 

IF XN=XP-2 THEN 4990 
IF XN=XP+2 THEN 4950 
GOTO 2540 | 
IF YN=YP+2 THEN 4870 
GOTO 3540 

IF XN=XP-2 THEN 

IF XN=XP+2 THEN 

GOTO 35460 

IF SJ=1 THEN 4590 

IF W=1 THEN 4960 


IF YNC>YD-2 THEN 4940 
GOTO 4990 

IF YND=YD THEN 3560 
GOTO 4590 

IF YNC)YD+2 THEN 4980 
GOTO 4990 

IF YN<=YD THEN 3540 
Y=YD 

X=XD 

GOSUB 5949 

IF R=2 THEN 5350 

IF W=1 THEN 5120 
Ui=Uu1-1 

IF Ui)=48 THEN 5100 
U1=57 

IF U2=48 THEN 5100 
UZ2=U2-1 

CALL HCHAR(21,3,U2) 
CALL HCHAR(C21,4,U1) 
GOTO 5190 

UI=UI-1 

IF VU1)=48 THEN 5180 
V1=57 

IF VU2=48 THEN 5180 
U2=VU2-1 

CALL HCHAR(21,28,U2) 
CALL HCHAR(21,29,V01) 
IF RÇ>2 THEN 5210 
GOTO 5350 

Y=YP 

X=XP 

IF W=1 THEN 5290 

IF SJ=1 THEN 5270 
CALL HCHARCY,X,120) 
GOTO 5330 

CALL HCHARCY,X,152) 
GOTO 5330 

IF SJ=1 THEN 5320 
CALL HCHARCY,X,112) 
GOTO 5230 

CALL HCHARCY,X,153) 
GOSUB 5370 

GOSUB 5760 

GOSUB 5270 

GOTO 5390 


CALL SOUND(30,110,0,123,0) 


RETURN 
IF W=1 THEN 5470 

IF SJ=1 THEN 5450 
CALL HCHARCYN,XN, 1 20) 
IF YNC)3 THEN 5440 
CALL HCHARCYN,XN, 152) 
GOTO 5530 

CALL HCHARCYN,XN, 152) 
GOTO 5530 , 
IF SJ=1 THEN 5520 
CALL HCHARCYN,XN, 112) 
IF YNC>19 THEN 5510 
CALL HCHARCYN,XN, 153) 
GOTO 5520 

CALL HCHARCYN,XN, 153) 
IF U2(>48 THEN 5550 
IF Ui=48 THEN 6830 

IF V2()>48 THEN 5570 
IF Vi=48 THEN 6870 

IF RC>1 THEN 5730 
D=D-1 

PP=PP-1 

CALL SOUND(5,1200,0) 
FOR 1=15 TO 19 STEP 2 
CALL VCHARCI ,CJ,32) 
NEXT 1 
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5640 N=0 4360 GOTO 4470 

5650 XD=0 6370 IF Y4)>7 THEN 43970 
5Sééa XF=0 6380 GOTO 6470 

5670 CALL HCHAR(YN,0,0G) 4390 IF Y4>13 THEN 6410 
5680 CALL HCHAR(20 ,XN,41) 6400 GOTQ 6470 

5690 IF D<>0 THEN 1770 6410 IF Y=17 THEN 6470 
5700 R=0 6420 IF X<)>8 THEN 4440 
5710 CALL HCHAR(23,16,22) 6420 GOTO 4460 

5720 GOTO 5790 6440 IF X<)>24 THEN 4460 
5730 IF R<)D2 THEN 5790 6450 GOTQO 4740 

5740 FOR I=15 TQ 19 STEP 2 6460 GOTQO 64680 

5750 CALL VCHARCI ,CJ,22) 6470 IF X=8 THEN 64620 
5760 NEXT I 4480 IF X=12 THEN 4420 
5770 F=0 6490 IF X=14 THEN 44620 
5780 GOTO 5870 6500 IF X=20 THEN 464670 
5770 FOR I=12 TO 19 STEP 2 6510 IF X=24 THEN 6420 
5800 CALL VCHARÇI ,Cd,32) 6520 IF X=10 THEN ééan 
5810 NEXT I 6530 IF X=14 THEN 6440 
5820 IF W=1 THEN 5850 6540 IF X=18 THEN ééd4n 
5830 W=i : 6550 IF X=22 THEN 6640 
5840 GOTO 5840 6560 CALL HCHARCY,X,88) 
5850 W=0 6570 RETURN 

52860 R=0 6580 CALL HCHARCY,X,29) 
5870 CALL HCHARCYN,0,0@) 6550 RETURN 

5820 CALL HCHAR(20 ,XN,41) 6600 CALL HCHARCY,X,71) 
5870 XD=0 é610 RETURN 

5500 N=0 éé20 CALL HCHAR(Y,X,72) 
57510 XF=0Q 6630 RETURN 

5920 SJ=0 6640 CALL HCHARCY,X,76) 
5920 SP=0 6650 RETURN 

5540 CALL HCHAR(23,146,22) ééé60 CALL HCHAR(CY,X,928) 
5950 GOTO 1840 6670 RETUFN 

59460 IF Y<)>3 THEN 5780 6680 CALL HCHARCY,X,79) 
5970 GOTQ 4050 6690 RETURN 

5980 IF Y<)7 THEN 6000 6700 CALL HCHARCY,X,100) 
5570 GOTO 4050 6710 RETURN 

6000 IF Y<)11 THEN 6020 6720 CALL HCHAR(CY,X,101) 
6010 GOTO 4050 6730 RETURN 

6020 IF Y<)15 THEN 6040 6740 CALL HCHAR(Y,X,104) 
6030 GOTO 4050 6750 RETURN 

6040 IF Y4)17 THEH 6760 CALL HCHAR(CY,X,103) 
6050 IF X<)10 THEN 6770 RETURN 

ééü GOTO 4580 6780 CALL HCHAR(Y,X,102) 
6070 IF X<)>14 THEN 6790 RETURN 

6030 GOTO 4580 4800 

6050 IF X<)18 THEN 4810 REM -- 

6100 GOTO 4580 6820 

6110 IF X<4>22 THEN 6830 Pl$=" JAUNES 

6120 GOTO 6580 é84û C=11 

6130 IF Y<>2 THEN 6190 6850 EC=2 

6140 IF X<>8 THEN é140û 6840 GOTO é700 

4150 GOTO 46540 6870 Pli$=" NOIRS " 

éié6Q IF X<>24 THEN 6180 6890 C=2 

6170 GOTO 6780 6890 EC=11 

64120 GOTO ééoa 6700 CALL CLEAR 

6190 IF Y<>7 THEN 6210 6S10 CALL SCREEN(EC) 
6200 GOTQO 44270 6$20 FOR I=i TO 7 

6210 IF Y<>11 THEN 6230 4730 CALL COLOR(I,C,1) 
6220 GOTO 44270 6740 NEXT I 

6230 IF Y<)>15 THEN 6290 6750 PRINT TAB(3):;"LES PIONS"&PUES" SONT": 
6240 IF X<C)8 THEN 6260 ::TAB(7):"LES VAINQUEURS" :::: 
6250 GOTO 64640 6760 GOTO 7060 

6260 IF X<)>74 THEN 6280 4770 GOSUB 7000 

6270 GOTO 6740 6780 PRINT TAR(9);"PARTIE NULLE'":::: 
6280 GOTO 4680 6750 GOTO 7060 

6270 IF Y<)>19 THEN 6350 7000 CALL CLESR 

6300 IF X<)8 THEN 6320 7010 CALL SCREEN({14) 
6310 GOTO 6700 7020 FOR I=1 TO 12 

6320 IF X<)Z4 THEN 4340 7030 CALL COLOR(I,8,1) 
6330 GOTO 6740 704Q NEXT I 

6340 GOTA 47270 7050 RETURN 


4350 IF Y<>5 THEN 4370 7060 FOR DEL=1 TO 800 
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34 


NEXT DEL 
CALL CLEAR 


PRINT TAR(4) ; "NOUVELLE PARTIE ? 


CALL KEY(3,T,S) 
IF S=0 THEN 7100 
IF T<)79 THEN 7160 


Galaxia 


Pierre Marcellin 


NDLR : Ce jeu d'arcade, écrit en 
Assembleur, requiert un lecteur 
de disquette, une extension J2K0 
et des manettes de jeu. Pendant 
le jeu, /3 touche ALPHA-LOCK doit 
être relächée. 


Vous êtes perdu dans l'espace infini et 
vos réserves d'énergie ne sont pas 
inépuisables; il vous faut —les 
reconstituer de temps en temps. Pour 
cela, vous devez prendre d'assaut Îles 
bases que défendent vos ennemis 
mortels : les terribles Arkoniens. 


Vous êtes aux commandes du dernier 
produit de la technologie terrienne. 
Votre vaisseau est équipé de boucliers 
énergétiques et d'un canon-laser. 


Votre bouclier pourra annuler les tirs 
des Arkoniens touchant votre vaisseau, 
mais cela demande une dépense 
d'énergie importante : pas moins de 
100 unités. Votre canon-laser est 
moins gourmand puisqu'un tir utilise 
une unité. 


Les plaques solaires qui équipent votre 
appareil peuvent reconstituer votre 
potentiel énergétique mais le 
rendement est très faible : une unité de 
temps en temps. 


Quand vos réserves d'énergie sont 
épuisées, votre canon devient 
inutilisable et vous devrez attendre 
quer les plaques solaires fassent leur 
effet. 


Lorsque vos réserves tombent 
en-dessous de 100 unités, vos 
boucliers ne peuvent plus arrêter la 
totalité d'un tir Arkonien. Dans ce cas, 
le tir ennemi traverse le bouclier et 
frappe la coque de vaisseau, 


CALL CLEAR 
CALL SCREEN(14) 


O:N 


GOTO 700 


IF T<>78 THEN 7100 
CALL CLEAR 


END 


provoquant aussitôt son explosion 
(attention, vous n'avez qu'une vie |). 


Vous devez essayer de franchir Île 
barrage formé par vos ennemis afin de 
les mettre en déroute. Leur technologie 
ne vaut pas la vôtre ils ne 
connaissent pas encore le secret des 
boucliers énergetiques, mais attention, 
ils sont courageux et il faut en 
éliminer une bonne centaine avant de 
les faire fuir. De plus, si vous tardez à 
les mettre en déroute, ils deviendront 
plus hardis et se rapprocheront de 
votre appareil. 


Quand vous les aurez fait fuir (si vous 
y parvenez), vous pourrez alors essayer 
de vous poser sur la base qu'ils 
défendaient, afin de récupérer un peu 
de cette énergie qui vous fait si 
cruellement défaut. La base est établie 
sur une planète et, bien sûr, la 
pesanteur se fait sentir, sans compter 
l'inertie de votre vaisseau Petit 
problème : la base est défendue par une 
triple barrière énergétique assez 
dangereuse. Elle est composée de la 
même énergie que les tirs Arkoniens,; 
votre bouclier pourra * donc vous 
protéger, mais toujours au même prix. 


De plus, il vaut mieux ne pas vous 
écraser sur le sol rocailleux ni contre 
les murs. Heureusement, l'ordinateur 
de bord est là. C'est un ordinateur de la 
dernière génération, capable d'inverser 
le mouvement du vaisseau une 
microseconde avant la catastrophe. 


Cette prouesse nécessite, elle aussi, 
une énorme dépense d'énergie; gare à 
l'explosion ! De même, si vous montez 
trop haut, l'ordinateur annulera votre 
progression (cela ne nécessite que peu 
d'énergie, heureusement) puisque vous 


êtes venu ici pour vous poser, pas pour 
repartir. 


Si vous réussissez à éviter tous ces 
dangers, vous pourrez vous poser Sur la 
plate-forme prévue à cet effet. [1 vous 
faudra détruire au moins une partie de 
la barrière énergétique, à l'aide de 
votre canon-laser, pour passer au 
travers sans la toucher. Attention à 
bien vous aligner avec la plate-forme 
et, surtout, à ne pas atterrir trop vite; 
ménagez le train d'atterissage sinon la 
réparation pourra vous coûter cher. 


Quand vous aurez atterri, il faudra 
repartir par le même chemin. Il faut 
alors monter le plus haut possible; 
l'ordinateur de bord vous laissera 
partir mais refusera tout autre 
atterrissage : il n'y a plus rien à tirer 
de cette base. 


Une fois dans l'espace, il faudra 
atteindre la base suivante, elle aussi 
défendue par des ennemis un peu plus 
courageux que les précédents; il faudra 
en éliminer deux de plus avant de les 
faire fuir. 


Quand la partie sera terminée, à 
l'affichage de ‘FIN DU JEU”, vous 
pourrez appuyer sur Æ£DO pour une 
autre partie de même niveau, ou sur 
BEGIN pour recommencer au début et 
changer de niveau. 


Le programme 


Le source est subdivisé en sept parties 
baptisées GA4LAW/A-0 à GALANIA-6. 
Au moment de l'assemblage, il faut 
donner 2SK/. GAL AKX/A-6 comme nom 
de fichier source, car il contient les 
directives COPF 

D 
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ÉÉSÉEEÉÉEÉEÉEÉÉEEEEFE 


* GALAXIA-6 Le 
ÉEERÉÉERELÉEREREX 


COPY "DSK1.GALAXIA-0" 
COPY "DSKI.GALAXIA-1" 
COPY "DSK1.GALAXIA-2" 
COPY  "DSKI.GALAXIA-3" 
COPY "DSK1.GALAXIA-4" 
COPY  "DSK1.GALAXIA-S" 


END GALAXI 


ÉÉRÉEEEEEÉEEÉEREÉEE 


* GALAXIA-Q + 
HHXEERÉEERERREEEE 


DEF GALAXI 
REF UMEUW ,UMER , KSCAN ,UUITR 


*% Dessin fusee 

FA DATA 1,2102,>301,>1023 
DATA >42F,)2921,>2F03,)>100 
DATA >80,>8040,>C080,>80c0 
DATA )éûüF4,)>9C84,>FCCOü,>8000 


*#* Dessin ennemis 

MSTRI DATA 0,3,2F1C,)3172 
DATA >DCSF,>100,0,0û 
DATA 0,>C0,2F038,)8C4E 
DATA D>3EF1,)8000,0,0 


*Explosion ennemis 
DATA 0,0,3200,2>40 
DATA >708,)>1001,>72DC,>8F01 
DATA 0,0,û,>8000 
DATA >3007,>480,>4E3BR,>F180 
DATA 0,)2200,>2120,>608 
DATA )>1062,>1004,>70DC,>8F01 
DATA >40,>20,31800,>6014 
DATA )>8908,>802C,)>8E3B,>F180 
DATA )>10,>280,>4008,3>200 
DATA )>1400,2>120,>72C0,>8720 
DATA >8002,>zZ400,>8000,>5000 
DATA )>A008,)>44,3>E03,>9120 
DATA 0,)21208,>11,2 
DATA >1140,>510,4,31000 
DATA )>10,>2004,310,>4220 
DATA >4008,>2002,>6010,0 
DATA Q,1,>401,>802 
DATA >1104,4,3100,0 
DATA 0,>40,>20,>4020 
DATA >4800,>8840,0,0 
DATA Q,0,0,>400 
DATA >0204,0,0,0 
DATA 0,0,>80,220 
DATA >8000,>4000,0,0 


* Position,code,couleur 
B DATA DAES8S0O,>800D,>D000 


# Vitesses 
C DATA >0000,>0000 
D DATA >0000 


ENERGI DATA 1000 
NBENAP DATA 0 
NBVAG DATA 107 
PATRON DATA >0400 
ATTRIB DATA )>0300 
VITESS DATA >0780 
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FLAG DATA 
POINT DATA 
UVITLIM DATA 
TIRLIM DATA 
VITEAR DATA 
UN DATA 
DEUX DATA 
TROÏS DATA 
QUATRE DATA 
CINQ DATA 
SIX DATA 
SEPT DATA 
HUIT DATA 
NEUF DATA 
DIX DATA 
ONZE DATA 
TRENT2 DATA 
UNE BYTE 
DEUXB BYTE 
H4Q BYTE »>40 
EVEN 


New JMDIJRUEYN-000QOQ 
N = © 


# UTILITAIRE ECRITURE EN VOP 
DATA 0,0 

VSEUW MQU  R1, al/SEBlWJ-2 
MOV RO, aàVSBW-4 
AB 24H40, aVSEl]-4 
MOUB aVSEU-3,a>8C02 
MOVUB aVSBUW-4,43>8Cc02 
MOVB aVSBW-2,4>8C00 
RT 


#* LECTURE EN VDP 

VSBR MOV RO, 4/SEL]-4 
MOVE aUSBW-3,4>ec02 
MOUR aVSElU-4,9>8Cc02 
MOVB 38800 ,R1 
RT 


ÉÉEHELÉELESERÉEÉERÉEÉÉEEERÉEEEÉEE 


* NOMBRE ALEÂATOIRE DANS RI +* 
HÉÉEEÉEEEÉERÉEEEEÉEEÉEÉEÉEEEEX 


RND LI R1,28645 
MPY  4)>83€n,RI 
AI R2,31417 
MOV  R2,4)>83Cû 
SUPB Ri 
RT 


ÉYÉEÉEEEÉERÉEEÉERÉRELEEÉESE 
*APPARITION D'UN ENNEMI * 
RÉRÉÉEEEÉEEERÉEREEÉEREREEEX 


VITINT DATA 0,0 
DATA 0 
ENNEMI MOV  R11,9ENNEMI -2 
INC  GNBENAP 
C ANBENAP , ANBUAG 
JL  ENMNEM2 
BL  4TAB2 
ENNEM2 MOV  GATTRIB,RO 
LI R1,)F000 
BL aVSEW 
INC RO 
BL  äRND 
BL  aVSEW 
INC RO 
LI R1,)8400 
BL  3VSEW 
INC RO 
ENNEMI BL  GRND 





35 


36 


ANDI 
CI 
LE 
EL 
À 

LI 
LI 
MQU 
BLUP 
ê 
AB 
MOUV 
RT 


R1,)0F00 
R1,)0100 

ENNEMI 

aus EL 
AQUATRE , 9ATTRIB 
R1 ,UITINT 

R2, 2 

aVITESS , RO 
aUMEU 
IQUATRE , AVITESS 
aUNB,9)837A 


aENNEMI-2,R11 


REFEEÉEERESÉEÉEEEEEÉEX 
*MANETTES DE JEU * 
*TESTE LES 2 MANETTES*% 
REREERÉEEERÉREREIEHIÉÉÉÉ 


CD 


DATA 
MOU 
MOUB 
ELLIF 
MOU 
MQLUB 
BLUP 
MO 
Le] 
MQOU 
RT 


(] 
R11,9CD-2 
AUNB, 38274 
AKSCAN 
3)8376,R1 
ADEUXE, 28374 
IKSCAN 

28376 ,RO 

RO ,RI 
aCD-2,R11 


EXEEEEEEEEEEÉEEEÉEÉÉÉÉEEESÉEE 
*MOUVEMENT DU VAISSEAU <-» % 
ÉEFEÉÉÉEÉERÉEREEERELÉEÉEEEXÉEX 


MUT 


DATA 
MOU 
ANDI 
SLA 
SUPB 
LI 
BL 
MOUV 
RT 


( 
R11,aMUT-2 
R1,)00FF 
RI,4 

R1 

RO ,>781 
aVSEU 
aMUT-2,R11 


EEEEEELEEIÉEÉEÉELÉEÉÉE 
#DESSIN OÙ VAISSEAUX 
ÉEFÉEEÉESÉÉÉÉÉEEEEÉE 


DESSIN 


DATA 
MO 
MO 
LS 
LI 
ELLIP 
MOV 
LT 
LI 
ELUP 
MOU 
Li 
LI 
ELUP 
LI 
MOUR 
LI 
ELUWP 
LE 
MOUB 


(| 
R11,aDESSIN-2 
àPATRON , RO 

R1,4 

R2,32 

aV/MEU 
IATTRIB, RO 

F1,B 

R2,5 

aUMBU 
aVITESS , RO 

R1,C 

R2,4 

aVMEU) 

RO ,)E200 

RO ,4)83D4 

RO ,>01E2 

alJUIT R 

R3,>0100 
R3,4>8374 
aTRENT2, 8PATRON 
AGUATRE , SATTRIB 
AQUATRE , AVITESS 


*MODIFICATION VITESSE ENNEMIS+* 
HÉRHÉÉEEEEEEEEEEERÉEESÉEREREEX 


DATA 
CHGT MQU 
LI 
CHGTI BL 
MOU 
BL 
SRA 
A 
BL 
INC 
BL 
MQUV 
BL 
SRA 
Â 
BL 
AI 
C 
JNE 
MOV 
RT 


0 
R11,9CHGT-2 
RO ,>784 
aVSER 

R1,R3 

3RND 

R1,4 

R3,R1 

aVSEU 

RO 

aVSER 

R1 ,R3 

aRND 

R1,4 

R3,RI 

aVSEUW 

RO ,2 

RO, AVITESS 
CHGT1 
ACHGT-2,R11 


KÉFERELÉEEÉEEEÉELÉERELEELEEE TX 


#*CONTROLE POSITION ENNEMIS% 
ÉRKÉÉÉEEÉEÉEEEÉÉEERERÉRERERIÉX 


LIMBAS DATA 
DATA 
CTRPOS MOV 
LI 
CTRPI1 CLR 
BL 
CB 
JL 
CI 
JL 
AI 
BL 
ABS 
EL 
AI 
B 
AI 
BL 
ABS 
NEG 
EL 
AI 
AI 
C 
JNE 
MQU 
RT 


>5000 

( 
R11,aCTRPOS-2 
RO ,>304 

R1 

AVSER 

R1 , ALIMBAS 
CTRP3 
R1,)E000 
CTRP2 

RO ,>480 
aVSER 

R1 

aVsEU 

RO ,>FB80 
aCTRP3 

RO ,>420 
aVSER 

RI 

R1 

aVSBU 

RO ,>FB80 
RO ,4 

RO, SATTRIB 
CTRP1 
aCTRPOS-2,R11 


EÉEEÉERELEEÉEEEEÉEÉEEEÉELEEE 
*CONTRÔLE VITESSES ENNEMIS* 
KXÉHELERÉRÉEEÉÉEEÉÉÉÉÉEEEÉEÉEX 


DATA O0 


CTRVIT MOV 
LI 

CTRUIA EL 
INC 
EL 
AI 


R11,ACTRUIT-2 
RO ,>784 
aCTRVI 

RO 

aCTRUI 

RO ,3 
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(3 RO, AUITESS ; WDEPLTE 
JUNE  CTRVIA LUTIN3 
MO GCTRUIT-2,R11 LUTINS dAFFPFTS 
RT aCTRVUIT 
LUTIN3 aDEPFLT 
DATA 0 aCTRLTE 
MOV  R11,aCTRVI-2 2 
EL aySER Q 
MOUV R1,R9 aKEY 
AES Ri 
E R1,a@VITLIM 
JL CTRU3 
MO aUVITLIM,R3 ÉÉREÉÉELELEEEEEEXXX 
MOU  R7,R9 # GALAXIA-1I # 
JGT CTRV?2 ÉÉÉEÉÉIÉÉÉERÉEÉESET YF 
NEG R3 
CTRVZ MOUV R3,F1 * PATRONS DES TIRS 
BL aVSEU 
CTRU3 MOV  aCTRVI-2,R11 CRCTRI1 BYTE >e0,>80,>80,)80,)80,>80 
RT EYTE >80,)280û 
BYTE )>40,>40,>40,>40,>40,>40 
FLGEXP DATA 0 | BYTE >40,>40 
FLGTE DATA O BYTE >20,>20,>20,)>20,)>20,>20 
HAO0O DATA >A000 BYTE >20,>20 
H2000 DATA >2000 BYTE >10,2>10,910,>10,10,910 
H8000 DATA >8000 BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
EVEN 
CARACT DATA 
NBTU DATA 
POSTU DATA 
X DATA 
Ÿ DATA 


ÉEHEEXÉEEHÉFÉEEELÉEEE 
#*DEBUT DÙU PROGRAMME * 
ÉÉREEEREEEEREFEEEEESE 


GALAXI BL GTITRE 
LUTIN LI  RO,)07F1 
BLUP AUWTR 
BL  GHCHAR 
DATA >320,)F100,18 


PL  GHCHAR 
DATA >5292,)7100,15 KEHÉEÉEEEÉEEEKELEEEERÉEELE 
LI RO ,>391 *CHARGEMENT DES PATRONS* 
LE R1 ,)B100 RÉEL EREELEEEEELEXEX 
BL aUSEW 
BL  GDESSIN CP LI RO ,)C08 
BL aCP LI R1 ,CRCTRI 
BL SENNEMI LI R2,64 
BL  GENNEMI ELWP aUMBUWT 
BL  GENNEMI LI RO ,>420 
BL  GENNEMI LI R1 ,MSTRI 
BL  GENNEMI L1 R2,32+192 
BL  GENNEMI BLWP 3VMEW 
BL  GENNEMI LI RO ,)>C78 
MOV GATTRIB, RO LI R1,SOL 
Li R1,>D000 LI R2,184 
BLIF. aUSEU BLUHIP GVMEBW 
KEY CB. GLIMBAS,0H4000 RT 
JHE  LUTIN4 
INC aLIMBAS ÉÉÉEÉEÉEÉEERKELEEFYX 


LUTINA à 3HLOOLAFLGENS PSE 
JNE  LUTIN? doi ; 
LUTIN7 ‘  — B12 DATA >1200 
d' 
BL GMT D22 DATA 22 
EL aCTRPOS DATA 0 
A 2H2000 ,9FLGEXP TIR MOV R1I1,2TIR-2 
LUTINé MOYU  GENERGI , SENERGI 
BL  4EXP JEQ TIR! 
LUTINI MOY  ANBTU, RO 


LUTINé ACHGT JEG TIR2 
LUTINI aTIR MOUV  ATIR-2,R11 


RT 
aCTRLTU _ ; 
aTIRE MOVB aUNB,4)8374 


aH8000 , 9FLGTE si do. Ro 
LUTINS Étedlas ds 
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JEQ TIR3 ÉÉEVENEEERELEÉÉEÉEELEÉEXE 
MOUR DELXR,a)68374 *CONTROLE TIRS VAISSEAUX 
BLUP aKSCAN ÉXKÉEKÉEÉÉÉEÉEERELÉÉEEEREXX 
CE 2>327S,4d4B12 
JUNE TIRI NBED DATA >320 
DEC  sENERGI ADRATT DATA 
LI Rü,)3aû1 BUFFER RSS 10 
ELR  Ri BUF1 BSS 4 
EL aUSER BDO DATA >D000Q 
SUPE R1 NUNE DATA -1 
AI R1,7 HN32 DATA -32 
MOV  R1,aX HN4 DATA -4 
MOV 4D22,aY B88 DATA >28800 
EL aTIFA 
JMP  TIRI DATA 
CTRLTU MOUV  R11,aCTRLTU-2 
DATA G 84 aNETU, aH0 
DATA à JNE CTRTVé 
MOUV R11,aTIRA-2 BE aCTRTUR 
INC  aNBTL CTRTVS LI RO,>304 
MOU  aX,R1 MOUV RO, aADRATT 
SPA R1,3 CTRTU2 CLR RI 
MOU  R1,23XA BL aYSER 
INC  axA MOV  R1,R3 
SLA R1,3 SUPR R3 
MOV aX,Ré INC RO 
S R1,Ré BL AUSER 
MOV  Ré,R1 SILPB R1 
MOV aY,RO MOV  R1,R4 
SLA Rü,S AI R3,10 
DEC FAN 
A axXA,RQ CTRTU4 MOU  aPOSTU,Ré 
AI R1,128 MOU  Ré,RO 
SUPB Ri MOYU  R6,RF 
BL aUSBU SRA Ré,S 
MOV RO, 4POSTU MOV  R4,R& 
MOV R1,aCAFACT SLA R3,3 
MOUV aTIRA-2,R11 SLA R4,5 
RT S Ré,R9 


SLA R9,3 
EEÉELEREEÉEELÉEEEÉEE CLR Ri 


#*BOUCLE D'ATTENTE* BL  4USBR 
EXÉEÉÉÉTEREEÉERÉEÉEE SUPB R1 
AI  Ri,-128 
DELAI CLR R15 A Ri,R9 
INC PRIS C  R9,R4 
JNE DELAI +2 JL  CTRTUS 
AI  R4,15 
di C  R4,R9 
JL  CTRTUS 
C  R3,R8 
JL  CTRTUS 
AI R8,7 
Hü DATA 0 AE Mr 
DATA 0 C  R8,R3 
DEPLT MOV R11,9DEPLT-2 JL CTRTVS 
c aNBTU , SHO 
JEQ DEPLT3 
DEPLTI MOV  3POSTU, RO RHIN X 
LI R1,)2000 *ENNEMI DETRUIT* 
BL aAUSEU ÉRÉEKELLEEREREEX 
AI  RO,-32 
JGT DEPLT2 INC  GPOINT 
CI  RO,-32 BL  aSEEN 
JL  DEPLTZ MOU  äPOSTU, RO 
CLR  GNBTU CLR  GNBTU 
JMP  DEPLT3 LI R1,>2000 
DEPLT2 MOV  ACARACT,RI BL  aVSBU 
BL  USEW MOU  BADRATT , RO 
MOU RO, GPOSTU LI  R1,BUFFER 
DEPLT3 MOU  GDEPLT-2,R11 LI R2,4 
RT BLUP AUMER 


ÉÉFEEEREEEEEEEEÉEEERÉEÉELEEEE 
#*DEPLACEMENT OÙ TIR VAISSEALIx 
ÉÉEÉERERÉERESÉEEEREEÉEÉÉEÉEEEE 
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MOVB aBDO, 3BUFFER+4 ARO DATA 

AI RO,>480 TRS BSS 

LI R1,BUF1 

DECT R2 DATA 0 

BLUWUP aUMER TRSFRT MOV  R11,aTRSFRT-2 

MOVB 9B88, aBUFFER+2 MOUV RO, aARO 

MOV  aNBED,RO LI RI1,TRS 

Ei R1 ,BUFFER LT R2,4 

LI R29 ELWP aUMER 

ELWP aVMBL MOV  R3,RO 

AI rRü,>48Q ELUF aVMEU 

LI R1,BUF1 MOV aARO ,RO 

LI R2,2 AI Ra,>480 

ELUP GVMEBUW DECT R2 

BLUP aVMER 
ÉEÉÉEIÉELÉEÉÉEEEEÉETÉEÉÉEÉEÉÉEEÉEE MOV  R3,F0 
#*Transfert dernier sprite * AI RO,>48û 
ÉXELELÉÉERÉÉÉÉRÉEÉÉESÉÉÉEÉEEX BLUP MEL 
MOUV  ARO,ROQ 

À GHN4, aATTRIB MOV  aTRSFRT-2,R11 

MOUV  aATTRIB,ROQ RT 

MOV GADRATT,R3 

Â WHNA , dUITESS 

BL aTRSFRT 

ee] WQUATRE , aNBED 

A 2HN32 , IPATRON paires dla ds 

BL  GENNEMI RS 

JMP  CTRTUZ ÉREREEÉEEÉEEELEEX 


CTRTUS À GQUATRE , GADRATT 
MOUV GADRATT ,RQ * TIR ENNEMI 


C RO, aATTRIR 
JHE  CTRTUZ NBTE DATA OÙ 


S 55 0 
B aCTRTU2 A pti : 


: 4 CARCTE ESS A4û 
CTRTVU3 . @CTRLTU-2,RI11 D40 DATA 40 


DATA 0 
ÉERÉEÉÉÉIÉETÉÉEÉIÉEESSÉELEÉÉErEX+ 
*EXPLOSION D'UN ENNEMIS+* TIRE MOV  RI11,aTIRE-2 


C aNBTE , aD40 
ÉÉÉÉRÉEERÉÉEÉERÉÉRERÉÉEE JHE TIRE! 


; aRt. 
DATA. S < ue 
MOU  R11,G@EXP-2 ; 
MOV GATTRIE, RD nn pe 
INCT RO £ sé 


RT 
C RO , aNBED EL dRNO 
JL EXP3 


SUPB RI1 

MOUV  aGEXP-2,R11 ANDI R1,30007 
RT JUNE TIREZ 
CLR RIi 


INC Ri 

BL USER LI RO,>300 
CI R1,)9C00 SLA R1,2 
JHE  EXP4 


A R1,RO 
Sr, 8l,7409 JMP  TIRE4 
BL  4USEU 


MOV  R11,aTIRE-2 
AI  RO,4 


LI RO ,>200 

JMP  EXP1 CLR  3NBTE 
CLR Ri 

DECT RO BL 9USBR 

MOV  RO,R2 MOU  R1,R3 

MOV GNBED ,RO SUPB R23 

AI RO ,-4 AI R3,11 

BL ATRSFRT INC RO 

A SHN4 , ANBED BL 3VSBR 

AB  aNUNB,9>837A 


MOUV  R1,R4 
MOV GNBED ,RO SUPB R4 
LI Ri,>D000 AI R4,8 


BL 4VSEU CI R3,)BE 
B dEXPS JH TIRE! 
MOU  R4,RS 
RÉÉEÉÉEKÉEÉEÉÉÉEÉRÉEÉFÉEÉEÉEFE DEC R3 
*TRANSFERT DE SPRITEX* SFA R3,3 
ÉÉRÉEEÉÉEÉEÉEÉEEEÉEERÉEEEESE 
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Ra DATA 
Rd, DATA >800,>8000,>420,0 
R4 ,Ré DATA 8,0,0,32,0,0 


32,0,8,382 
> 
0 
Ré, DATA 0 ,0,)480,0,0,>20 
0 
0 


ü 


Q 
0 


, 
Ré, RS DATA ,0,0,0,0,0,0, 
R3,5 DATA 
R4 ,R3 
MOU R3.RO DN100 DATA 
MOU  aNBTE, R2 DATA 
EN. ‘68, SPORTESRE) CTRLTE MOV R11,3CTRLTE-2 
INCT GNBTE 
CLR R2 
MOY  RS,R1 
È LI RO,)300 
AI R1,128 
SUFR F1 en 
er far BL 9USER 
EL  aVSEu MOU R1,Ré 
MOV R1,GCARCTE(R2) INC RO” 
B aTIRE! D ane 
CS | MOV R1,R7 
LÉSÉÉESÉELELEÉEFEÉÉETEFELESTE SWUPB Ré 
DEPLACEMENT TIRS ENNEMIS*x à K 


EEFÉÉEEEEEEEÉEÉEÉEEEEEESEEEE UE Pr 
è EÉRÉLESESLLLE EL: INCT R7 


INC Ré 

DATA 0 

MOV  R11,9DEPLTE-2 STE e Aie 2h 

. . MOU  GPOSTE(R2) ,R4 
= MOU  R4,RS 

JHE DEFPLE1 MOU R4 ,RO 

MOV  GPOSTECR2) ,RO SLA R4,3 

LI  F1,)2000 


se INC R4 
EL  aUSBu SLA R0,5 
AI  RO,32 


, 5 RO,RS 
CI RO,747 


: SLA R5,3 
JH° DEPLES MOV ACARCTE(R2) ,RO 
MOV GCARCTECR2) ,R1 


É SWPB RÜü 
BL aUSEU | AI RO ,-128 
MOU RQ, DPOSTECR2) A RO ,RS 
INCT K2 | MOUV Ré,RE 
B aDEPLEA4 MOV R7,R9 
DECT NBTE AI RS,7 
MOV aNBTE,R9 C R4,R& 
MOUV  GFOSTE(RS) , aFOSTE(R2) JLE CTRTEA4 
MOY GCARCTE(CRS) , ACARCTE(R2) C RS,R? 
E aDEFLES4 


JLE CTRTE4 
MOV  aDEPLTE-2,R11 AI R9,12 
RT 


C RS ,RS 
JLE CTRTE4 


ÉÉEHELERELEFÉEEÉEEÉEÉE 
CONTROLE TIRS ENNEMIS*x 


EVE ÉSEFÉESÉÉESÉEISEESY 


EXHEKEEX 

#TOUCHE* 

HRHHEEXX 

IN TEXT ‘FIN OÙ JEU” 

DECT aNBTE 

MOV GPOSTE(CR2) ,RO 
LI R1,22000 ‘? 
BL aUsSBUW 


PATRONS EXPLOSION UAISSEAU 

XPU DATA 1,24132,)304,>810 
DATA )128,)3125,53004,)4100 
DATA >e0,)8244,)C220,)900B 


DATA MOV  GaNBTE,R? 
DATA 33,24102,>804,409é6 MOV. GPOSTE(R?) , 3POSTE(R2) 


DATA 2,)2021,>3008,640 MOUV GCARCTE(R9) , aCARCTE(R2Z) 
DATA ,8422,)800,)>9403 


DATA )>A4,)C04,>2008,)2182 
DATA >8042,)400,4128,512 

DATA )>4024,288,744,>2200 

DATA 45,)21288,36490,>1201 
DATA >8004,544,;408,>2081 BL GSONEXP 

DATA 0,3821,4,80 A aDN100 ,GENERGI 
DATA )>1002,72,0,1024 JGT CTRTEZ 

DATA 32,64,48,>82 

DATA >820,>8010,>440,0 EÉRELELERÉÉELETE 

DATA 0,2>801,0,64 #PLUS D’ENERGIE* 

DATA 2,32,0,>40û ÉERENEÉERÉEÉEELEEX 


HEEELREX 
#ALARME * 
ÉÉEÉEHREE 
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BL 
EL 
CTRTE?7 EL 


aEFFAC 
aAFFPTS 
GHCHAR 


MO 
RT* 


AHCHAR-Z,RII 


DATA >780,0,56 


ÉÉRÉREÉÉEEEREEERÉEEÉEEEE 
*EXPLOSION DU VAISSEAUX 
ÉEXERÉEEEEEÉEERERÉEEREÉE 


LI  R1,EXPV 
CTRTEé CI  R1,EXPU+192 
JH  CTRTES 
LI RO,400 
LI R2,32 
ELWP aUMEU 
BL  9EXPDEL 


AI R1,32 
JMP  CTRTEé 

CTRTES BL 4DELAI 
BL  aDELAT 
CLR  GNBTE 
CLR  aNBTU 
LI RO,363 
LI  R1,FIN 
LI  R2,10 
BLWP AUMBU 
E aFINJEU 


ÉFÉEEÉEFEEÉEREEEE 


#*SI PAS TOUCHE* 
HAEEREÉEÉEIREIEE 


CTRTE4 INCT R2 
B aCTRTEI 
CTRTEZ2 MOU  aCTRLTE-Z,RI1 
RT 


EEREEEEEERELLEEEEX 
#BOUCLE D'ATTENTE* 
RÉFÉREEEÉEEELÉEEEE 


UCHBR MOV  #R11+,F0 
MOUV #R11+,R1 
MOUV xR11+,FR2 
MOUV R11, IHCHAR-2 
UCHARI -EL al/SElJ 
A1 RO,22 
DEC RZ 
JUNE  UCHARI 
MOV GHCHAR-2,R11 
RT 


HÉÉELETÉVÉSÉÉESÉÉEEEXS 
#*AFFICHAGE DES POINTS+x 


EEFÉEEÉERELÉEEEESEISSESES ET 


ENERG .TEXT TENERGIE:" 
SCORE TEXT ‘SCORE:”’ 
REGAFF BSS 5 

EUEN 


DATA 0 
AFFPTS MOUV  R11,G4AFFPTS-Z 


MOV GPOINT, RO 
BL  ACURSN 

LI RO,2 

LI R1,SCORE 
LT  RAHI 

BLWP aUMEU 

MOU  GENERGI , RO 
BL  GCURSN 

LI RO,19 

LI  R1,ENERG 
LI 2,7 

BLUP 3UMBUW 

LI RO,27 

LI  RI,REGAFF+1 
LI  R2,4 

BLUP 3!/MEW 


EXPDEL LI 
LIMI 

EXPDE1 INC 
JNE 


R15,)>9000 
2 

R1S 
EXPDE1 


MOUV 
RT 


DATA 


dAFFPTS-2,R11 


(al 


LIMI Q 
RT 


ÉFÉÉÉEFEÉÉEÉELRÉE 


#-)>CALL CLEARS% 
ÉÉÉEEEEERÉEEEX 


DATA @ 

MOV. R11,9EFFAC-2 
EL  GHCHAR 

DATA 0,>2000,768 

MOV GEFFAC-2,R11 
RT 


EEFFÉÉEÉEERÉERERÉEEE 
#UTILITAIRE D'ECRAN% 
HÉXÉEEREEÉERÉEEERÉEEEX 


DATA 0 
HCHAR MOV  #R11+,RQ 
MOV  +R11+,R1 
MOV  #R11+,R2 
MOV  R11,0HCHAR-2 
HCHARI EL GVSEUW 
INC RO 
DEC R2 
JNE  HCHARI 
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MOU  R11,aCURSN-2 
CLR 1 R3 

LI R1,-10000 

BL 3DECPT 

LI R1,-1000 

INC R3 

BL  4DECFT 

LI R1,-100 

INC R3 

BL  aDECPT 

LI R1,-10 

INC R3 

BL  GDECPT 

SETO FI 

INC R3 

BL  ADECPT 

MOV GCURSN-Z,R11 
RT 


DATA 0 
DECFT MOV R11,aDECFT-2 

SETO R2 
DECPTI INC R2 

F4 R1,RQ 

JUT DECPT2 

JMP  DECFTI 
DECFPT2 AI RZ,48 





SUPE R2 GPOINT 
MOUB R2,4REGAFF(RA) Ra ,1000 
S RI ,RQ RO , SENERGI 
MOU  ADECPT-Z,R11 2 
RT aDELAI 
ADELVAR 
RÉF EES IDE SE ÉÉEEEESÉÉEEEESÉÉEELXÉESÉEEEXX >5000 
# ALARME QUAND LE UAISSEAL EST TOUCHE * 0 
RER EREEÉÉEEEEEEEEL EEE EE EEE EEEEEEYE 
rü 
un BF,)0F,)FF,)E3,1 2 
,?3F,)E2,)50,>F0,10! ü 


SON1 BYTE S, 

, > 

8! OF 2E2:29L,2F4,16 28374 
so 

, 


5 
BYTE 5 
BYTE 5 
EBYTE 5, ,)3F,)E2,)72,)F2,10 aKSCAN 
BYTE 5 >87, >3F,)E2,)93,>F3,10 28375 ,R0 
EYTE "389,98F, )E2,)74,)F4,10 RO ,>FF00 
EYTE one cd ei: FIN2 
YTE 5 87) >3F,)EZ,)94,)F6,10 RO ,>60û 
BYTE 5 85,32, >E2,)97,2F7,10 REDO 
BYTE r, >3F,)E2,)9 58,)F8, 10 
BYTE 5,)89,)3F,)E2,)99,)F9,10 RO ,2>E00 
BYTE 589 ,>3F,)E2,)9A,)FA,10 FIN2 
BYTE 5,)89,)3F,)E2,)9B,)FB,10 
BYTE 5,)89,)2F,9)E2,>9C,>FC,10 aTITRE 
BYTE 5,)89,)3F,)E2,)90,)FD,10 aDELAI 
BYTE 5,)89,)2F,)E2,)9E,)FE,10 DELAI 
BYTE 2,2FF,29F,0 ADELAI 
EVEN RO ,105 
RO , ANBVAG 
SONEXP LI R1 , SON! ATAB3 
LI RO,)1000 
LI R2,11é6 


BLWP aUMEU ÉLRERKEÉEEÉEEEÉÉEEEEX 
#  GALAXIA-3  * 
SA ie HÉKÉEÉÉEÉEEEREREEE 
SOCB aUNB,9)>83FD É 
MOUB AUNB, 9)83CE ARECRIAL ASE 
= FLGENG DATA 0 
H100 DATA 100 
ÉÉXEÉFEÉERAELÉERELRÉEEEÉEEEÉ DN1 DATA -1 
#*BOUCLE D’ATTENTE VARIABLE* ATTAB2 BYTE -20,76,2>80,2>0D,>D0 
ÉÉREERERERELEEEEEÉERÉEREEEX VITAB2 BYTE 4,0 
FLGROT DATA 0 
DELVAR MOV  #R11+,R15 DXYZ DATA 0 
DELVAI DEC R15 EVEN 
JNE  DELVAI 
RT ÉERÉEREERERERÉEÉERÉEXEX 
* PATRONS VAISSEAU * 
ERESÉETÉEFÉEÉERÉ RÉLERÉEEELÉEERÉEÉEÉEX 
#FIN DU JEUX 
HÉÉEEERÉÉEEEX PATAB2 DATA 0,0,>102,)>102 
DATA >2F39,>3F01,0,0 
HISCOR DATA Q : DATA 0,0,>8040,>804û 
THISC TEXT ‘MEILLEUR SCORE : DATA >F49C,>FC80,0,0 
FINJEU € GPOINT , 3HISCOR DATA 0,1,2107>101 
JL FINI DATA >204,>77F,)>1010,0 
MOV  GPOINT,@HISCOR | DATA 0,0,>Cû,0 
FINI LI RO ,100 DATA >8040,>C0FC,)1010,0 
LI R1,THISC 
CT R2,17 ÉÉÉÉERELEEÉELEEELEEEEÉÉÉÉEEEÉÉEÉÉE TE 
BLWP aVMEBU # PATRONS CARACTERES DL SOL * 
MOU GHISCOR,RO ÉÉREÉSÉEEÉEÉEÉEÉÉEÉEEEÉÉEEÉEEEÉÉÉEÉÉE 
BL  ACVRSN 
LI RO ,117 SOL DATA D7EC3,)A559,)79A5,)C37E 
LI R1 ,REGAFF DATA DEO0F&,>FCFF,2FFFF,2FFFF 
LI R2,5 DATA 0,>38FC,>FFFF,2FFFF 
ELWP 3UMEW DATA 0,0,>F0FC,>FEFF 
DATA DFFFE,>)FCF8,)F8F8,)FCFF 
ÉTFÉÉÉ IS ÉÉEÉÉÉE ÉTÉ E STI ÉIEESSÉYF DATA >FF7F,27F3F,23F3F,2>7FFF 
* MISE À JOUR DES COMPTEURS * DATA DE,)3F2F,2>7F7F,2FFFF 
# POUR UNE AUTRE PARTIE # DATA 0,)C0F3,2FFFF,2FFFF 
ÉYRÉERÉEÉÉÉERÉÉLÉEÉÉÉEEÉÉÉELÉÉEX DATA DFFFC,>FO0E0,)E0FO,2)FCFF 
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DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


>FF7F,2)1F1F,)3F3F,27FFF 
>FFFE ,FFFF,OFFFE,OFFFF 
>FFFF,0FF7F,27F1F,2FO0F 
>FFFF,2FEFC,>FCFE,>FEFC 
>FO0FO,>E0C0,>)COCO, >A0AQ 
>F07,703,>307,>70F 
>F0F,>707,702,>303 
>FCFC,>F8F8,)F8F0,)FO0FO 
>102,31F3F,2FFFF,DFFFF 
0,0,>307,)1FFF 
>E0FO,>FO0FO,>F8F8,>)FCFC 
»303,707,703,)2303 
>F0E0,)E0FO,)F@FR,>FEFF 
>203.707,>303,>4FFF 


ÉERÉÉEEEÉEEÉEÉEEÉEEEÉEEEEEX 


* DESSIN DE 


LA BASE * 


ÉFÉKRESÉEFEEELEÉÉEEÉEEÉEFE 


MUR DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
MUR1 EVE 
EYTE 
EYTE 
BYTE 


53,90,354,71,355,)92 
1,95,382,96,383,)91 
9,)73,483,97,547,)9B 
79,)29F,611,)7C,445,)94 
07,98,573,)74,605,)9D 
637,)9D,669,)9D,701,29E 
643,)42,675,)9F,0 


A in & 0) WU 
NN — 10 CA 


>A4,)241,)71,)76,)A0,)79,99 
>91,240,)70,)91,)92,)A1,)92 
»A1,291,276,940,90,)91,)96 


>71,)92,)41,)76,92,)A5 


ÉEÉKÉEEEEEFETE 


* TABLEAU 2 


x 


ÉEXÉÉÉEÉEEÉEÉÉEÉÉE 


TAB2 EL 
EL 
LI 
LI 
BL 
MOUB 
BL 
DATA 
LIMI 
BL 
BL 
BL 
LIMI 
CLR 
MOUB 
LI 
Ce 
BL 
BL 


2EFFAC 
AAFFPTS 

RO ,>304 
Ri,)D000 
aVSBU 
aUNB, 38374 
AHCHAR 
>780,0,4 

2 

aDELAI 
aDELAI 
aDELAI 

0 

ANEBTU 
2H0,9>8374A 
RO,>300 
Ri,)D000 
aVSEU 
aDELAI 


ÉÉEEEÉÉEEEEÉÉEÉÉÉEESÉTE 


* DESSINE LA BASE * 
ÉERÉÉERERÉEEEEEEEÉÉX 


LI 
LI 
LI 
BLWP 
LI 
LI 
BL 
BL 
DATA 
BL 
DATA 
BL 
DATA 


RO ,707 

R1 ,MUR1 
R2,27 

aUMBU 
RO,)391 
R1,)>4100 
aVsEU 

DHCHAR 
>392,)9100,2 
aVCHAR 
252,)9900,13 
aUCHAR 
385,)97900,12 
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aVCHAR 
386,)7900,12 
aVCHAR 
414,)9900,12 
aVCHAR 
415,)99700,12 
aHCHAR 
739,)9900,27 
THCHAR 
3937,>8F00,27 
GHCHAR 
451,>8F00,27 
DHCHAR 
515,)8F00,27 

MOU  GMURCR2) ,ROQ 

JEQ TAB21 

INCT R2Z 

MOV 3MURÇCR2) ,RI 

INCT R2 

SUPB R1 

EL  a/SEUW 

JMP  TAB22 


EXÉEÉÉEEÉÉEÉEEÉÉEEÉÉEEEÉE 
# DESSINNE LE VAISSEAU * 
EÉXELEÉEEÉÉEEEÉÉERÉÉEELS 


TAB21 BL aDELAI 


1 Rü,>40û 

LI RI,4 

LI R2,32 

BLUP dUMEU 

LI rRü,>200 

LI R1,ATTAB2 

LI R2:,5 

ELUP aUMBU 

LI RO ,)>720 

LT R1 ,VITAB2 

LI R2,2 

BLUP aLUMBU 

MOUR aUNRB, 4837 

LIMT 2 

ëL aDELAI 

BL 2DELAI 

LIMI © 

LI RO ,>400 

LI R1 ,PATAB2 

LI R2,32 
a/MEU 

BL aDELUAR 
)50G0 

ET RO ,>400 

LI R2,32 

AI R1,32 
aUMEU 
ANBTE 
aDXYZ, ADXYZ 
TXY2Z0 
aDXY2Z 
TXY2 
aDEPL2 
aTIRV2 
acTIR2 
dAFFPTS 
aACTRPU2 
aCBE 
aH100,aFLGENG 
TAB25 
tEMNERGI 


AUITEAR, aFLGROT 


TARZ4 
dROTAT 





TAB26 C GENERGI , 20N1 KEHELEENÉEÉEÉÉERÉÉEÉÉEÉÉÉÉEEEEX 
JGT TAB24 * CONTROLE,DEPLACEMENT TIR *# 
BL ASONEXP ERÉÉEENÉEEEÉERÉRERÉEETÉEEREEE 
E aCTRTE? 
LIMI Z DATA O0 
LIMI Q CTIR2 MOUV R11,aCTIR2-2 
JMP  TABR23 C aNBTE , 4H0 
JEQ CTIR2I 
ÉRÉLEEREREREÉXX MOV aPOSTE , RO 
#TIR VAISSEAUX AI RO ,32 
RÉXERELERÉEREX CLR Ri 
EL aUVSER 
DATA à CI R1,>2000 
TIRU2 MOU R11,aTIRV2-2 JUNE CTIR22 
C aNBTE , aHû AI RO ,-32 
JUNE TIRU21 BL aAUSER 
C GENERGI., aUN CI R1,>S8F00 
JLT TIRV21 JEQ CTIRZS 
MOUE aUNR,24)8374 LI R1,>2000 
ELWP GKSCAN EL aUSEU 
CE 422375, 4B12 CTIR25 AI RO ,32 
JER TIRU22 MOV GCARCTE ,R1 
MOUR &DEUXB,4>8374 EL a/SBUl 
BLUP aKSCAN MOUV RQ, POSTE 
CE a>8375,a4B12 CTIR21 MOUV  aCTIR2-2,R11 
JNE TIRV21 RT 
TIRY22 DEC  aENERGI CTIR22 CI R1,>8F00 
EL aTIRES JUNE CTIR23 
INC  GNBTE 
TIRU21 MOU ATIRV2-2,R11 RÉRHEHÉHÉHHHHÉÉHHÉNHÉ 
RT * PARRIERE TOUCHEE * 
HÉRELÉELKRÉERÉÉEEÉEXÉ 
ÉRREEELELEEÉEÉÉÉÉÉELELE 
#*DEPLACEMENT VAI SSEALIx LI R1,>32000 
ÉKEEÉEELEEEREERÉERÉEEEEE BL 2VSBU 
CTIR24 AI RO ,-32 
H400Q DATA >4000 BL aUYSBU 
FLGDEP DATA 0 CLR aNBTE 


DATA 0 JMP  CTIR21 
DEPL2 MOV R11,aDEPL2-2 CTIR23 LI R1,>2Z000 


BL aCD JMP CTIR24 

DEPLS MOV  RI1,RS 
JEQ DEXYZ ÉÉÉÉÉEEEERÉEEÉÉÉELÉÉEÉEELÉEEÉEREE 
LI Ré,15 *ROTATION BARRIERE ENERGETIGUE%* 
MQOU Ré, aDXY2 HÉREÉÉÉEEÉEEÉEÉÉÉEEÉEEEÉÉÉEÉEÉEÉÉEÉE 
MOV  R1,Ré 
ANDI R5,>FF00 DATA 0 
ANDI Ré6,2FF ROTAT MOV  R11,3ROTAT-Z 
SUPB Ré LI FO ,287 
LI RO,)>780 LI R2,1 
CLR RI1 CT R4,413 
EL aUSER EL aROT 1 
S RS ,R1 y LI RO ,477 
re %0H4000 , aFLGDEF SETO R2 
JNE  DEFLé LI R4,451 
AI R1,3100 BL aROTI 
MOU  R1,R9 LI RO ,515 
ABS R9 LI R2,1 
CI RF,>7C00 LE R4,541 
JHE  DEPL3 BL GROT 1 


U  AROTAT-2,R11 
BL  3VSEW RS Fs 


INC RO di 
CLR Ri1 


DATA 0 
BL aVSER 
3R _ 
ne] Ré,R1 MOV  R11,GROT1I-2 


ay 
MOU  R1,R? Nu Rire 
AES R9 “à 


CI FR9,)4000 CLR RI1 

JHE  DEFPLA4 A R2,ROQ 

BL  3VSEW BL  aVSBR 
MOV  GDEPLZ-2,R11 CI R1,28000 
RT JL  ROT3 
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R1,)89700 JH  CTPU23 
ROT2 CTFU29 LI RO,>301 
R2,RO BL  9VSER 
aVsEW CI R1,>2000 
R2,RG JLE CTPU2S 
RO ,R4 CI R1,)D800 
ROT2 JLE CTPV21 
R3,RI JMP  CTFUZ6 

BL  29VSEUW CTPU25 LI R1,)04600 
aROTI-2,R11 JMP  CTPU27 
RT CTPU26 LI R1,)F500 


CTPU27 LI RO,2781 
HRÉEHEEEEERERERÉREREÉEREREÉE BL AUVSBU 


*CONTROLE POSITION VAISSEAUX SETO PR& 
ÉÉÉHEREEEERÉÉÉEÉÉRESEEREEEÉE CTPV21 CI R8,>OFFFF 

JUNE  CTPU28 
DRATT DATA 0 F3 aDN100,ENERGI 


DATA G CTPU2R MOU  GCTRPFU2Z-2,R11 
CTRPU2Z MOUV  R11,aCTRPU2-2 RT 
CLR R& , 
LI RO ,>300 ÉÉYEREÉÉÉELÉESEÉEEEÉÉERÉERESEX 
EUR  RIi ° *COLLISION AVEC LA BARRIERE*x 
BL aUSBR ÉÉEEEEÉÉEÉEÉELÉEEÉEEEEÉEELEEESÉE 
CT R1,>4800 
JLE CTPU2A COINC DATA 
CI R1,>4000Q DIRX DATA 
JLE CTPV22 DIRY DATA 
INC RO DNSO DATA 
BL aVSER ATT BYTE 
ET R1,)3C00û EVEN 
JLE CTPU223 DATA 0 
CI Ri,>430û CBE MOU  R11,aCBE-2 
ULE CTPU24 LI RO,>300 
CLR R1 
ÉYÉLÉEEÉEEESÉESE EL aUSBR 
#touche le <ol*x SUPB Ki 
ÉHÉEHEELÉEEELEY SRA R1,3 
MOV  R1,R4 
CTPV23 LI RO,>780 SLA Fr4,3 
LI Ri,>F700 DEC R4 
BL aUSBUW SLA RI1,5 
SETO R2& MQU  R1,R7 
JMP  CTPU29 CLR Ri 
INC RQ 
ÉÉXÉÉESEESEÉESE , BL a'y/SBR 
*atterissagex EUFB R1 
ÉXEEEÉELÉÉEEEE DEC Fi 
SPA R1,3 
CTPUZ4 MOU  aDRATT, aDRATT MOV  R1,RS5 
UNE  CTPUZ3 SLA  RS,3 
BL aDELAI AI RS, 32 
B wATTER A R1,R7 
CT RO,)>420 
ÉEXÉEEEÉÉELÉEÉÉEEEÉEÉÉEÉEEEÉÉEERELEEÉE LT Ri,SQL 
# VERIFICATION SORTIE PAR LE HAUT * LI R2,8 
REXELEÉELÉÉEERELÉELÉELRÉEEÉEEELÉREEÉEX ELUP GUMBEU 
BL SHCHÉR 
CTPU2ÀA CI R1,2>800 DATA >478,0,24 
JH CTPY2I CLR Ré 
MOU  GDRATT, GDRATT CBE1 â ACOINCCRÉ) ,R7 
JEQ CTPU2B A ADIRXCRSD ,RS 
B aTABS A aDIRYIRE) ,K4 
CTPV2B LI R1,)F00 INCT Ré 
LI RO ,>780 CI Ré,17 
BL auUSEU JH CBE2 
DECT GENERGI MOV R7,RO 
JUMP  CTPU21 CLR Ki 
CT Rü,>301 EL aUSER 
BL TUSBR CI R1,)S8FO0 
CT R1,>1800 JUNE  CBEI! 
JL CTPV23 LI RO,>304 
CI R1,>E00GQ MOU  R4,R1{ 


Vv | OO Q 


D (na = 


5990 
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SUPB RI 
BL aUSEU 
INC RO 


SOCB aUNE,%)823FD 
MOUB aUNB,a4>83CE 
MOUV  SEEN-2,R11 


46 


MQU 
SWPB 
EL 
INC 
LI 
LI 
BLUWP 
MOUVB 
CLR 
MOVB 
MOVB 
ANDI 
JEQ 
BL 
A 
LI 
LI 
BL 
MOU 
RT 


RS, RI 
RI 

aVSBU 

RQ 

R1 ,ATT 

R2,3 

aVMEUW 

ADEUXE, 98274 
R9 

2»837B,R9 


aUNB, 28374 
R?,)2000 

CRE! 

ASEEN 
ADNS0O , SENERGI 
RO ,)304 
R1,)D000 
aVSBU 
aCBE-2,R11 


EÉREMEESÉELEEÉLÉRÉRÉEÉELEEXE 
*RETOUR AU PREMIER TABLEAUXx 
HEHEHEEÉEEÉEREEÉÉRÉÉEEEÉEEEX 


H400 
H300 
H780 
H320 


TAB3 


TAB31 


DATA 
DATA 
DATA 
DATA 


INCT 
CLR 
MOV 
MOUV 
MOUV 
LI 
MOV 
MQU 
CLR 
CLR 
BL 
BL 
BL 
DATA 
B 


>400 
>300 
>780 
>320 


aNBVAG 
aNBENAP 
aH400 , PATRON 
3H300 , 3ATTRIB 
2H780 , QVITESS 
RO ,>5000 

RO , ALIMBAS 
3H320 , 9NBED 
aNBTE 

GDRATT 

GEFFAC 
dAFFPTS 
AHCHAR 
>420,0,256 
ALUTIN 


ÉÉXEEEEÉÉÉEEEEREE 
# GALAXIA-4 # 
ÉÉHÉREÉERÉRELEREX 


ÉRÉÉÉÉÉÉEÉEÉERRÉÉÉEEÉEÉEÉELÉÉEEÉ 


#* SON EXPLOSION ENNEMIS * 
HÉHERÉEÉEEREEERÉRIÉRÉHIREX 


DATA 
MOUV 
EL 
SWPB 
ANDI 
A 
MOV 
LI 
Li 
ELWP 
LIMI 
LI 
MOUV 


0 
R11,9SEEN-2 
aRND 

R1 

R1,3 

R1,RI 
ATBLE(R1) ,R1 
RO,>1000 
R2,38 

aVMBW 

0 

R10,>1000 
R10,2>83CC 


RT 


TBLE 
DATA 


* TABLES DE 

* SON 1 
BYTE 
BYTE 
BYTE 
BYTE 
EBYTE 
BYTE 
BYTE 
BYTE 
BYTE 


BYTE 
BYTE 
EYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 


BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 


TBLE+84 
SON 


5,>9F,)BF,)D 
2,)E4,)F0,20 
2,)E4,)F1,1é6 
2,)E4,)F2,13 
2,)E4,)F4,10 
2,)E4,)F6,10 
2,)E4,)FA,10 
2,)E4,)FE,10 
1,2FF,0 


5,)9F,>)BF,)D 
2,)ES,2F0,20 
2,)E5,2F1,1é6 
2,)ES,2F2,13 
2,)ES,)F4,10 
2,)E5,2)F6,10 
2,)ES,)FA,10 
2,ES,)FE,10 
1,2FF,0 


5,)9F,)BF,)D 
2,)E6,)F0,20 
2,2E6, 3Fi;16 
2,E6,2F2,13 
2,E6,)F4,10 
2,)E6,)F6,10 
2,)E6,)FA,10 
2,E6,FE,10 
1,2FF,0 


HÉXHEHÉREREÉEEXX 
* ATTERRISSAGE +* 
HERXEXERÉERERÉEEX 


Lo | TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
TEXT 


LI 
CLR 
BL 
CI 
JL 
CI 
JL 


‘ATTERRISSAG 


DATA TBLE+8,TBLE+46,TBLE+84 


F,)FF,)E3,1 


F,2FF,2E3,1 


F,>FF,)E3,1 


E PARFAIT’ 


“ATTERRISSAGE UN PEU DUR !’ 


TRAIN D ATT 
* REPARAT I ON 
LE VAISSEAU 
‘ 50 UNITES 
‘100 UNITES 
‘150 UNITES 
‘200 UNITES 


RO ,>780 
Ri 

aVSBR 
Ri,>2000 
ATTERI 
R1,>600û 
ATTER2 


ERRISSAGE PLIE’ 
S EST ECRASE’ 
D ENERGIE‘ 
D ENERGIE” 
D ENERGIE” 
D ENERGIE” 


ÉXÉREEÉÉEÉEEREREEÉEEMEREÉES 
*LE VAISSEAU S’'EST ECRASE* 
HÉXÉÉÉRELÉÉERERÉÉEÉERÉRÉÉREE 


LI 
LI 
GI 
BLUWP 
B 


RO ,68 
R1,T1+82 
R2,24 
AUMEU 
aF INJEU 
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ÉÉEXÉÉEÉEESÉEEÉEERE AD0ELAI 
*BON ATTERRISSAGE* aDELAI 
ÉXEXEFERÉÉEEÉLÉÉEESE aDELAI 
aSONEXFP 
ATTERI LI RO ,70 GHCHAR 
éT Ri,>0800 64,32,256 
JL ATTERZ RO,)>7aû 
LR Ri,T1+20 P1,>FA00 
EI R2,29 aUSEU 
A aCING, aPOINT RO 
UMP  ATTERS R1 
ATTERS LI RI1,7TI EL aUSBR 
LI R2,20 B aTAB2S 
Â aDIX, aPOINT 
ATTER4 BLUP aUMBL 
B aDECOL 


mem 


ERXÉEÉEEÉÉÉÉEEEERÉE 
* GALAXIA-S x 
ÉRÉEHELRÉERÉEEEEÉEX 


ÉÉERÉEEÉEFESÉ EEE SIESÉEÉE 
* ATTERRISSAGE RATE * 
HAREEREREERÉEEERÉERXX £ DESSIN DU TITRE 
ATTERS DATA REP1 ,REP2,REP3,REP4 

DATA -50,-100,-150,-200 
ATTER2 ANDI Ri,>F000 

SRA R1,12 

A Ri,RI 

MOV  GATTERS(R1) ,R3 

MOUV BATTERS+8(R1) ,R4 

LI  RO,é68 

LI  Ri,T1+45 


ORI DATA 
ORF DATA 
ABI DATA 
ABF DATA 


RTITRE DATA 0 
ess 472 
TITRE MOV Ri1,aRTITRE 
° LI  RO,>700 


LI R2,25 LI R1,RTITRE+2 
BLUP  aUMEU LI RZ,472 


LT RO ,104 BLUP aUMBR 
LI R1,71+70 LI RO ,>1F0 


ET R2,12 BLWP dUUTR 
BLUWP aUMEU LI RQ,>711 


LI RO ,135 BLUP SUUTR 


MOV  R3,RI LI  RO,)1800 
LI  R2,20 


BLUP GUMEU CLR R4 
A R4 , AENERGI CLR RI 
BL GAFFPTS CLR R3 
BL aVSEU 
ÉEXXEEEXÉEEE INC RO 
#DECOLLAGE* INC R3 
ÉXELÉEREEÉE AI R1,>100 
CI R2,)100 
DECI TEXT ‘ATTENTION AU DECOLLAGE’ JNE E2 
D300 DATA 300 INC R4 
EVEN CI R4,3 
JNE Eli 
DECOL BL aDELAI CLR RO 
BL aDELAI CLR RI 
BL aDELAI BL avseu 
BL aDELAI INC RO 
BL DELAI CI RO ,)>1800 
LI RO ,>200 JNE Ni 
LI R1,)9A400 LI RO ,>2000 
BL aUSBU LI R1,)1100 
INC RO BL aUSEU 
LI R1,>41aû INC RQ 
BL aVSBU CI RO ,>3800 
BL GHCHAR JNE COQ 
DATA 64,>2000,254 LI R1 ,RVDPE 
MOV GUN, 3DRATT TITRES MOWU  #Ri+,RQ 
A 40300 ,GENERGI JLT TITREA 
BL dAFFPTS "BLUP GUUTR 
LI RO ,133 JMP TITRES 
LI R1 ,DEC1. TITREA LI RO ,)1E00 
LI R2,22 LI Ri,>D00Q 
AUMBU BL avseLy 
BL DELAI 
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48 


* DESSIN DU 


LI 
LI 


TITRE MOU 
MOU 
JEQ 
MOU 
MO 


* DESSIN DU 


TITREZ2 LI 
LE 
TITRE MOU 
MOU 
JEQ 
MQU 
MOUV 
MOU 
BL 
JUMP 
TITRE4 ELUP 
MOUVB 
JEGQ 
LI 
TITREé MOV 
JLT 
BLUP 
JMP 


* REGISTRES 


RUDPG DATA 
DATA 
DATA 


# REGISTRES 


VAI SSEAU 


R3,AU 
R2,)5100 


#R3+, BF 
24BF , 90BF 
TITREZ 

#R3+,00RF 
+R34,0ABI 
#R3+, DORI 


aL1GNE 
R13,136 
a4BF ,R12 
R12,R13 
R13,ABF 
R13,126 
a4BI ,R13 
R13,R13 
R13,4BI 
ALIGNE 
TITRE! 


TITRE 


R3,A2 
R2,)97100 
*R3+, TABF 
a46F , BF 
TITRE4 
*R3+,00RF 
#R3+, GABI 
#R3+, 00RI 
aLIGNE 
TITRE3 
IKSCAN 
3)837C, RO 
TITRE4 

R1 ,RUDPG 
#R1+,RO 
TITRE? 
AUUTR 
TITREé 


UDP POUR MODE GRAPHIQUE 


>0000,)01E0,0200,)030E 
>a4û1,)>0506,)0600,)0711 
>FFFF 


UDP POUR LE BIT MAP MODE 


>0092,201E0,>0206,)>03FF 
>0403,20502,2FFFF 


“NIVEAU DE JEU’ 
‘1 —-> DEBUTANT’ 
‘2 -> AMATEUR 
“3-7 CONFIRME" 


TITRE? 


BL 


BL 


TITRE? LI 
EL 
LI 
BLUP 
Li 
LI 
LI 
BLWP 
AI 
LI 
ELUWP 
AI 
LI 
BLUWP 
AI 
LI 
BLWP 
AI 
LI 
LI 
BLUP 


‘4 —} CHAMPION’ 

?  TIRS ENNEMIS # 
VITESSE ENNEMIS :° 
ATTERRISSAGE :° 
FC'EST PARTT EE” 


RO ,>E000 
RO ,4>83D4 
RO ,>900 

R1 ,RTITRE+2 
R2,472 
AVMEU 
AHCHAR 


>380,>4100,18 
SHCHAR 
>392,)9100,15 
AEFFAC 


RO, 
RI,TTT 
R2,13 
GUMBUW 

FO ,168 
R1,TTT+13 
R2;,18 
aUMBU) 

RO ,64 . 
RI,TTT+26 
UMEU 

RO ,64 
R1,TTT+39 
aUMELUI 

RO ,64 
R1,TTT+S2 
aUMEU 

RO ,124 
R1,TTT+65 
R2,17 
aUMBU 


* SAISIE DES NIVEAUX 


BL 
BL 


aSCAN 
ADELAI 


*-)TIR ENNEMI 


MOUV 
LI 
BLWP 
BL 
BL 


aNIVTECRI) ,aTIRLIM 
R1,TTT+82 

a/MEU 

ASCAN 

aDELAI 


#-)VITESSE ENNEMIS 


MQU 
LI 
BELUP 
BL 


ANIUUI CRI) ,GUITLIM 
R1,TTT+99 

aUMBL 

ASCAN 


#—-)ATTERRI SAGE 


MOUV 
BL 
DATA 
Li 
LI 
LE 


aNMIVATCR1) , aVITEAR 
aHCHAR 

0,>2000,768 

RO ,329 

R1,TTT+i1é6 

R2;:19 
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BLUP UMEUW 
BL aDELAI 
BL aDELAI 
BL aDELAI 
BL aDELAI 
BL dEFFAC 


MOV GRTITRE,RI1 
RT 


* NIVEAUX 
NIVTE DATA 2048,>2000,>4000,>500a 
NIVUI DATA 8192,>4800,>5000,>5800 
NIVAT DATA 2048,>4000,>8000,>0000 


* TESTE LES TOUCHES 1,2,3,4 
DATA 0 
SCAN MOV R11,9SCAN-2 
SCANI CLR 98374 
CLR Ri 
ELWP AKSCAN 
MOVB 4)8375,R1 
CI R1,>FF00 
JEQ SCANI 
SUPB R1 
AI  R1,-49 
JLT SCAN! 
CI  R1,3 
JH  SCANI 
A R1 ,R1 
MOU  GSCAN-2,R11 
RT 


* TRACE LE TRAIT 
DATA 0 

LIGNE MOV R11,aLIGNE-2 
MOV  GABF,R7 
MOV GABI ,R9 
CLR R12 
LI  RS,1 
LE RSI 
s R9 ,R7 
HT rt 
JMP  LI2 
NEG RS 
NEG R7 
MOV  R7,R7 
JNE LI3 
SETO R12 
MOU  GORF,RS8 
MOV. aORI ,R10 
s RICO ,RE 
JLT LI4 
JMP  LIS 
NEG Ré 
NEG R8 
MOV  R9,RO 
MOV  R10,R1 
BL aPT 
C R?,ABF 
JUNE Lié 
C R1O,GORF 
JNE LIé 
MOV  GLIGNE-2,R11 
RT 


R12,R12 
CI 
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DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


0 
R11,9PT-2 
R4,R11 

R1 ,R4 
R4,5 
R1,R4 
R4,>FF07 
RO ,R4 

RO ,>0007 
RO ,R4 

RO ,R14 
R4,RO 
aVSER 
200(R14),R1 


aVsEU 
RO ,)>2000 
R2,R1 
aVSBU 
Ri1,R4 
aPT-2,R11 


>8040,)2010,)>0804,)0201 
100,32,78,64,100,32,130,22 
84,52,108,60,102,60,117,77 
130,28,116,84,130,28,136,28 
116,84,128,84,116,84,120,74 
130,28,136,28,134,28,124,120 
124,120,133,128,120,96,127 
946 
136,119,133,119,133,119,133 
132 
133,132,136,132,134,132,134 
145 
128,84,136,88,136,88,136,119 
136,52,136,0,132,68,128,84 
120,4,126,4,120,4,116,9 
116,9,136,13,134,52,1246,52 
132,48,136,48,132,68,124,5 

0 


56,164,52,156,52,156,28,15é6 
28,156,47,188,47,188,47,188 
67,188,59,172,59,172,52,172 
72,188,72,156,72,1546,92,188 
72,172,92,172 
92,156,100,188,100,188,120 
188 
125,188,184,156,136,156,147 
188 

130,172,191,172 
152,188,180,156,156,156,172 
188 
184,188,192,188,1946,156,204 
15é 

188,188,200,1S4 


204,188,232,154,232,156,224,188 


188,218,172,228,172,0 





49 


50 


Logo et la récursivité 


Michel Schurmans 


Le premier coup d'euil sur le Logo TI 
m'avait donné l'impression d'un 
langage simple, pour ne pas dire 
simpliste. En fait, il s'agit d'un 
langage à la fois plus souple, plus 
concis et plus précis que le Basic. 

En simplifiant à l'extrême, les trois 
notions fondamentales du Logo sont 
les listes, les procédures et la 
récursivité. 


La liste 


I s'agit d'une collection d'éléments, ou 
items”. Chacun de ces éléments peut 
être lui-même une collection 
d'éléments, et ainsi de suite... 


La liste simple s'écrira ainsi: 

[ POMME POIRE SCOUBIDOU ] 
et ce sans oublier un espace avant le 
crochet ‘}". 


Une liste composée pourra s'écrire : 


[ [ POMME  POIRE SCOUBIDOU ] 
POISSON [ TABLE CHAISE ]] 


Cette dernière liste comporte trois 
éléments et surtout pas six. Une liste 
peut ne pas avoir d'élément, on 
l'appelle une liste vide. 


La procédure 


C'est une collection d'instructions. Le 
mot instruction ayant le même sens 
qu'en Basic, si la procédure est une 
collection d'instructions, on peut dire 
qu'une procédure est une liste 
d'instructions exécutables par le 
TI-99. 


Pour illustrer ceci, nous allons étudier 
le moyen de mémoriser un dessin fait 
à l'aide de la tortue. 

Pour dessiner un carré, on peut écrire : 


AVANCE 40 <ENTER> 

DROITE 90 <ENTER> 

AV 40 <ENTER> 

DR 90 <ENTER> 

AV 40 DR 90 AV 40 DR 90 
<ENTER> 


Si nous voulons redessiner le carré, il 
faut recommencer la même séquence 


‘+ 


d'instructions. Pour un carré, ce n'est 
pas grave; par contre, si Vous avez 
dessiné une maison avec ses fenêtres, 
sa porte, etc. c'est beaucoup plus 
long. 


Nous pouvons envisager d'enregistrer 
les ordres donnés à la tortue dans une 
liste, puis de réexécuter cette liste 
comme il nous plait. De plus, comme 
nous dessinons “en direct”, nous 
pouvons gommer nos erreurs; nos 
corrections seront enregistrées. 


La procédure MEMORISATION permettra 
cet enregistrement. Les numéros entre 
parenthèses renvoient aux  com- 
mentaires : ne pas les taper au clavier. 


(1) POUR MEMORISATION 

(2) CREE “INSTRUCTION LISLIGNE 

(3) SI :INSTRUCTION = [ ] ALORS 
STOP 

(4)  EXECUTE :INSTRUCTION 

(5) CREE  “SUITEINSTR PHRASE 
-SUITEINSTR :INSTRUCTION 

(6)  MEMORISATION 

(7) FIN 


1) MEMORISATION est le nom de la 
procédure créée; 


2) Dès que vous appuierez sur 
<ENTER»>, la ou les instructions 
tapées seront mémorisées dans 
une liste qui porte le nom 
“INSTRUCTION”; 


‘INSTRUCTION signifie : les 
instructions contenues dans la 
variable (liste) INSTRUCTION. En 
Logo, on distingue le contenant 
du contenu Soit une liste 
dénommée INSTRUCTION. Si on fait 
appel à la notion de contenant, on 
l'écrira : 

"INSTRUCTION 
et par le contenu: 

‘INSTRUCTION 


Ceci est une notion fondamentale 
de l'informatique, malheureusement 
implicite dans la plupart des 
langages. 

Le but de cette troisième ligne 
est de tester si nous avons entré 
quelque chose avant <ENTER>. Si 


oui, la liste INSTRUCTION n'es 
pas vide et la procédure passe 
la quatrième ligne. Si, à 
contraire, vous avez fait <ENTER 
directement, la procédure ve 
s'arrêter. 


Les instructions entrées dans 
“INSTRUCTION sont maintenant 
exécutées. 


Nous créons une nouvelle liste 
SUITEINSTR. Le contenant 
"SUITEINSTR reprend le conten 
de :SUITEINSTR et y ajoute le 
contenu :INSTRUCTION. 

6) On continue en appelant à 
nouveau la présente procédure 
A noter MEMORISATION n'est 
précédé d'aucun signe tel que ” 
OÙ :. 

Pour exécuter la suite d'instructions 

ainsi entrée, il faut écrire EXECUT 

:SUITEINSTR, c'est-à-dire donne 

l'ordre au TI d'exécuter les 

instructions contenues dans la listé 

"SUITEINSTR. Ceci est assez long 

écrire, mais le Logo TI permet d' 

remédier en écrivant une deuxième 

procédure : 


POUR EX 

EXECUTE :SUITEINSTR 

FIN 
Il] suffira de taper EX pour voi 
s'exécuter le dessin. 


Si vous voulez compléter votre dessin 
il suffira de relancer la procédure 
MEMORISATION. Par contre, si vous 
voulez faire un autre dessin, il fau 
penser à vider la liste “SUITEINSTR 
Plutôt que de le faire à chaque fois 
écrivons une troisième procédure en 

ajoutant d'autres instructions qu'i 
faudrait répéter. 


(8) POUR DEBUT 

(9) CREE “SUITEINSTR !) 
(10) APPELLE TORTUE 
(11) EFFACEECRAN 

(12) MEMORISATION 

(13) FIN 


Cette troisième procédure introdui 
deux notions importantes : 
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e En ligne 9, nous avons demandé 
l'exécution d'une simple 
instruction, en 12 nous avons 
demandé l'exécution, d'une 
procédure, c'est-à-dire, en fait, de 
sept instructions. D'où la notion : 
une suite d'instructions peut être 
considérée comme une instruction 
simple. La réciproque est vraie et 
se trouve à la base de la 
programmation structurée (ou 
descendante). 


Puisque nous n'avons pas le courage 
d'écrire à chaque fois les lignes 9, 
11 et 12, nous avons écrit une fois 
pour toutes une procédure. “DEBUT” 
est plus rapide à saisir que les 
lignes qui suivent. Par contre, pour 
que la procédure marche même 
avant d'être dans le monde de la 
tortue, nous avons ajouté la ligne 
10. 

Cette ligne ne sert que la première 
fois, mais il nest pas grave 
de l'exécuter inutilement. 

Ceci illustre un autre principe 
important : soyons fainéants et 


Ce programme permet de réaliser des 
dessins directement à l'écran, en 
partant de motifs prédéfinis. 


Compte tenu de la place mémoire 
disponible sur la console de base, 
l'espace “feutlle de papier” a été réduit 
à 24 lignes par 25 colonnes (quatre 
colonnes de motifs prédéfinis plus 3 
colonnes supprimées). La même raison 
nous a empêché d'écrire le mode 
d'emploi dans le programme. 


Il existe dans cette version 96 motifs 
prédéterminés, apparaissant dans les 
quatre colonnes de gauche. Il est 
possible d'en ajouter, mais cela 
obligerait à refaire les calculs. Vous 
pouvez aussi redéfinir les motifs à 
votre convenance, pour réaliser un 
autre type de dessin. A tout moment, 
vous pouvez enregistrer votre dessin 
sur cassette pour le reprendre plus 
tard, ou tout simplement le visualiser. 


QQ Magazine 1° 7 


laissons l'ordinateur travailler ! 


Maintenant, après avoir souffert en 
entrant ces trois procédures, 
exécutons-les en dessinant notre 
carré. Nous aurons à taper : 


DEBUT <ENTER> 

AV 40 <ENTER> 

DR 90 <ENTER> 

AV 40 <ENTER> 

DR 90 <ENTER> 

AV 40 DR 90 AV 40 DR 90 
<ENTER) 

<ENTER> (pour dire que le dessin 
est terminé) / 

EE (pour effacer l'écran) 

EX (pour redessiner le carré) 


Si nous tapons AFFICHE :SUITE INSTR, 
le TI nous donne : 

[ AV 40 DR 90 AV 40 DR 90 [ 
AV 40 DR 90 AV 40 DR 90]] 
Ceci correspond à la façon dont nous 

avons entré nos ordres de dessin. 
Si vous entrez un dessin plus complexe 
que notre malheureux carré, vous 





Mode d'emploi 


e La touche Alpha Lock doit être en 
position basse. 

e Pour déplacer le “crayon” (recherche 
et déplacement du motif), il faut 
d'abord faire *1 et ensuite utiliser 
les touches D, E, 5,X, W,R, CET Z. 
Pour augmenter la vitesse de 
déplacement du crayon sur l'écran, il 
faut presser la touche “+ (au début 
du programme, la vitesse rapide est 
obtenue par défaut). 
Pour diminuer la 
déplacement : "-". 
L'opération en cours peut être 
annulée à tout moment grâce à la 
touche ””. 

Prise (première pression) et 
inscription du motif (seconde 
pression) par la touche “espace”. 

Après inscription du motif (seconde 
pression sur espace”), choix du 
mode d'affichage par les touches "H° 
pour inscription horizontale, “V° 


vitesse de 


| Pouvez 


obtenir le message ‘Plus 
d'espace disponible au niveau X° (60 
par exemple). L'origine de cette 
plaisanterie est à la ligne 6; quand 
nous appelons à nouveau la procédure 
MEMORISATION, nous n'exécutons pas 
la même procédure : 
e la première fois nous exécutons la 
procédure numéro |; 
la deuxième fois nous exécutons la 
procédure numéro 2; 
la soixantième fois nous exécutons 
la procédure numéro 60. 


Pour le TI-99, il y a 60 procédures 
différentes donc 60 fois plus d'espace 
mémoire utilisé Ceci nest pas une 
carence du Logo, ni même du TI; nous 
retrouvons cette contrainte dans tous 
les langages récursifs et sur tous les 
systèmes informatiques. Ce n'est que 
la contrepartie de la puissance des 
procédures récursives, comme nous 
vous l'expliquerons dans un prochain 
article. 

DO 


Dessinez avec le Basic Etendu 
Georges Herbepin 


._, 
1 


pour inscription verticale et 
un seul affichage. 

Il y a trois niveaux de choix du 
nombre de répétitions de O à 999, 
limités aux cases restantes : aux 
deux premiers niveaux, possibilité 
d'inscrire le nombre de répétitions 
déjà choisi par la touche “espace”. 
AU troisième niveau, affichage 
automatique du total. 

Enregistrement sur cassette (CS1) 
en cours de dessin, par la touche 
"FCTN-1". 

AU début du programme, possibilité 
de transfert en mémoire d'un dessin 
depuis une cassette, pour 
visualisation ultérieure. 

A tout moment, visualisation du 
dessin en mémoire par “FCTN 9°. 


pour 


Il faut environ huit minutes pour 
enregistrer ou lire un dessin vers ou 
depuis une cassette. 





Si 


52 


iüû 
110 
120 


LOREERELEERERÉEEEÉEEEEEEÉE 
CR + 
! * Programme de dessin 
FaD: + # 
1AQ L'EXREREEEELEEERELEEEREXEEEX 
190: ! ‘# # 
160 ! + Easic Etendu * 
120.1. % # 
1SQ l'OHLRREEREELEÉÉERÉEEEEÉEEEEE 
190 ! 

Z00 CALL CLEAR :: DISPLAY AT(4,10):"x DES 
SIN *" DISPLAY AT{7,1):"Entrer un de 
sein ?P(O/N)" :: OPTION BASE 1 :: DIM W(C24 
529) 

Z10 CALL KEYCO,K,S)d:: 
220 IF K=79 THEN 240 
Z30 GOTO 210 

240 OPEN #1:"CS1",INTERNAL,INPUT ,FIXED 1 
28 

250 FÜR I=1 TO 24 

260 INPUT H1:WCI,13 ,WCI,23 ,WCI,3) ,W(I,4), 
WCI,S) ,WCI,4),WCI1,7),WCI,8),WC1,9),WCI, 
10) ,WCI1,112 ,WCI,12) ,WCI1,13) 

270 INPUT #1:UCI,14),WC1,15),UCI,16).WCI, 
17), ,WCI1,18) ,WC1,197) ,WCI,20) ,UCI,21) ,WCI 
22) ,W(1,23),W(1,24),WC1,25) 

280 NEXT 1 :: CLOSE #i 

290 CALL CLEAR :: CALL CHARC27,"FFFFFFFFF 
FFFFFFF") 

300 CALL CHAR(33,"0000081C3E1C0800183C3C3 
C180012800004428101000000000004214080814 
OQG"):: CALL COLOR(1,2,8):: CALL CHAR(37," 
FFFFFFFFFFFFFFFF") 

310 CALL CHAR(AQ,"FFFFFFFFFFFFFFFF0102070 
F1F3F7FFFSOCOEOUFOFSFCFEFFFF7F3F1F0F0703 
ü1") 

220 CALL CHAR(4Y,"FFFEFCFSFOEOCORQ223CZEé 
878300000000000431408000000000000000000 
OG"):: CALL COLOR(2,16,8) 

330 CALL CHAR(4R,"FFFFFFFFFFFFFFFF0102070 
F1F3F/7FFFSOCOEGFOFEFCFEFFRSCCEAFSFSFCFE 
FF") 

340 CALL CHAR(52,"103854B4A549238100143E74 
FOF7F7FFFS80CZE7F2FBFEFEFFO000000080C040 
90"):: CALL COLOR(3,4,8) 

350 CALL CHAR(Sé,"FFFFFFFFFFFFFFFF0103070 
FIF3F7FFFS0COEOFOFSFCFEFFOS1C3E3E1ICOROR 
08") 

360 CALL CHAR(SO,"FF7F3F1FO0FO0703011113E7A 
F3F3F7FFFERZCSESF2FAFEFEFFFFFEFCFSRFOEOCO 
80"):: CALL COLOR(4,13,4) 

370 CALL CHâARCéS,"FFFFFFFFFFFFFFFFO1023070 
FIFS3F7FFFSGCOEOFOFSFCFEFFFFFEFCFSFOEOCOQ 
£a") 

380 CALL CHARCSS,"FF7F3FIFOFO703010000140 
814000000000000000010281008081C143467EFF 
FF"):: CALL COLOR(S,7,4) 

390 CALL CHARC72,"FFFFFFFFFFFFFFFF0103070 
FIF3F7FFF80OCOEGFOF8FCFEFFFFFEFCF&RFOEOCO 
£0") 

400 CALL CHAR(7é,"FF7F3FIFO0FO70301FFFFE3C 
FSFCIE7FFF77BBDDBD4D3E7F7FFFFC34581BD7E 
FF')}:: CALL COLOR(4,5,4) 

410 CALL CHAR(SO,"FFFFFFFFFFFFFFFFFFCIDSC 
1DSCIFFFFFFE7CBADADASADADFFFFOOSAOOFFFF 
FF} 

420 CALL CHAR(SA,"FFFFC3C3C3C7C3C3FFF7E3F 
7FFFFFFFF"):: CALL COLOR(C7,12,14) 

420 CALL CHAR(SS,"02031414B0D080808080D0B 
O1A1603202F8FCFCSE16122201000000007292FF 
?2") 

440 CALL CHAR(92,"97ZFFS252000000000000083 


IF K=78 THEN 290 


“ 


OSOFS1C1FOFO7050C1424220100000000000003 
FS"):s: CÂLL COLOR(S8,14,4) 

450 CALL CHAR(CSS,"FFFFFFFFFFFFFFFF01023070 
FIF3F7FFFFF7F3F1FOFO7020180COE0FOFSFCFE 
FF" 

460 CALL CHAR(100,"FFFEFCF8FOEQCOS0000008 
1823C2E0000000040E13E3ES25502030C5C2B102 
828"):: CALL COLOR(?,15,4) 

470 CALL CHAR(104,"0028102202450200002214 

18101008080000001048481410") 

4980 CALL CHAR(107,"412236241CZ42200000018 
3C3C7E7E7E7249490024929200"):: CALL COL 
ORCIC,12,19) 

70 CALL CHAR(112,"0818483C14182844101812 
3CS818142200000042253C18244AFFAAFFAAFFA 
AFF"):: CALL COLOR(11,10,15) 

500 CALL CHAR(120,"082A4246B08FF7E00000002 
8344/7C3800810081BDDBE7FFE7FBF9C773BSCFE 
FF3") 

510 CALL CHAR(124,"00000001030P2P24286B6B 
EBORFFS553F002028A8ASACAC2CAEAERF2F20FFS5 
7FE"):3: CALL COLOR(12,16,5) 

520 CALL CHAR(128,"0101412111080307FF0203 
0SG81020000000020488D0C0FFE0C0D08884828 
08a") 

530 CALL CHAR(132,"0000431408020814FFFF0F 
2FOFFFFFFFFFFFFOF4FOFFFFFF"):: CALL COL 
OR(13,12,8) 

540 CALL CHAR(136,"0103070F1F3F7FFF80C0E0 
FOFRFCFEFFFFFEFCFSRFOEOCOBOFF7F3F1F0FO070 
301") 

SS0 CALL CHAR(140,"FFFFSFIECICIADéAFFFFF9 
788383B554"):: CALL COLOR(14,13,15):: C 
ALL SCREEN(2) 

S60 CALL VCHAR(1,1,37,48):: CALL UCHAR(1, 
32,37,24):: B=33 :: FOR A=1 TO 3 :: B=B 
+1 :: CALL LVCHAR(A,3,B):: MNEXT À 

S70 B=39 :: FOR À=4 TO 24 :: BP=B+1 :: CAL 
L VCHAR(A,3,B):: NEXT À 

580 EB=60 :: FOR A=1 TO 24 :: B=B+1 :: CAL 
L VCHAR(A,4,B):: NEXT À 

9590 CALL VCHAR(1,5,85):: B=87 :: FOR A=2 
TO 23 :: B=B+1 :: CALL VCHAR(CA,5,BD:: N 
EXT À 

600 CALL VCHAR(24,5,112):: B=112 :: FOR À 
=1 TO 3 :: B=B+1 :: CALL VCHAR(A,6,B):: 

NEXT À 
610 B=117 FOR â=4 TO 18 :: 
LL VUCHAR(A,6,B):: NEXT À 
620 B=135 :: FOR 4=19 TO 24 
ALL VCHAR(IA,6,B):: NEXT À 
630 CALL SPRITE(#H1,33,2,70,70):: P,R=0 
640 CALL KEY(CO,K,5) 

650 IF K=3 THEN 1540 

éé0 IF K=15 THEN GOSUB 1410 

470 IF K=é1 THEN Z=0 :: GOTO 470 

680 IF K=47 THEN 
670 IF K=é8 THEN 
700 IF K=67 THEN 
710 IF K=83 THEN 
720 IF K=88 THEN 
730 IF K=87 THEN 
740 IF K=82 THEN 


B=B+1 :: CA 


B=B+ri +5 C 


Y=8 :: GOTO 780 
se: Y=0 GOTO 720 
1: Y=-5 GOTO 730 
: Y=0 :: GOTO 780 
52 Y=-8 :: GOTO 780 
1: Y=8 GOTO 7£û 
720 IF K=£67 THEN 5: Y=8 :: GOTO 780 
r60 IF K=50 THEN 1: Y=-8 GOTO 780 
770 IF S=0 THEN X=0 :: Y=0 
780 CALL POSITIONCHI,4,B) 

790 IF A1 OR Ad171 THEN 810 

800 IF B£S2 OR B>228 THEN 810 ELSE 820 
810 IF 2=0 THEN 2Z=1i 

820 IF 2Z=1 THEN X=X/4 Y=Y/4 

820 IF A<4 THEN CALL LOCATE{#H1,4,B) 


X XX XX XX X NI 
Û O0 
La) 


WU 
1 
œ 


© 
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840 IF A)182 THEN CALL LOCATE(HI,182,B) 
850 IF B<18 THEN CALL LOCATE{#HI,A,18) 

cé0 IF B>237 THEN CALL LOCATE(#H1I,A,229) 
870 CALL MOTIONCHI,X,Y)D 

880 IF S=-1 THEN 910: 

850 IF K=32 THEN GOSUB 930 

900 IF K=46 THEN 1070 

910 IF F=1i THEN 1020 

S20 GOTO 640 

$30 CALL MOTION(C#1,0,0) 

S40 IF P=i THEN 1040 

950 P=i :: AI=INT(A/B):: BI=INT(B/8):: A2 
=A1*8 :: B2=BI1x8 :: AG=A-A2 :: B3=B-B2 
360 IF A3<=4 THEN A4=A1+1 AS=A1%x8 :: G 
OTO 980 

970 A4=A1+2 AS={A1+1)+8 

980 IF E34=4 THEN B4=Bi1+1 :: BS=B1x8 :: G 
oTO 1000 

950 B4=B1+2 :: PS=(E1+1)%8 

1000 IF AS=0 THEN 45=4 


1010 CALL LOCATE(HI,45,85):: CALL GCHAR(A 
4,B4,M):: RETUPN 

1020 IF R=Q0 THEN CALL SOUND(20,880,0):: C 
ALL HCHAR(A4,B4,232):: R=1 :: GOTO 640 
1030 IF F=1 THEN CALL SOUND(20,660,0):: C 
ALL HCHAR(A4,B4,M):: R=0 :: GOTO 640 

1040 CI=INT(A/8):: DI=INT(B/9):: C2=CI*8 
:: D2=D1%*8 C3=A-C2 :: D3=B-D2 


1050 IF D1<S THEN 1070 

1060 IF Di=5 THEN 1080 ELSE 10970 

1070 CALL SOUND(30,110,5,220,10,330,15):: 
P,R=O :: CALL HCHAR(A4,B4,M):: GOTO 64 


(E] 

1080 IF D3€=4 THEN 1070 

1090 IF C34=4 THEN C4=Ci+i :: CS=Cix8 :: 
GOTO 1110 

1100 C4=Ci+2 :: CS=(CI1+1)%#8 

1110 IF D34=4 THEN D4=Di+i :: DS=D1x8 :: 
GOTO 1130 

1120 D4=D1+2 :: DS=(D1+1)x*8 

1130 IF C5=0 THEN CS=1 

1140 P,R=0 :: CALL LOCATE(#HI,CS,D05):: CAL 
L HCHAR(AA , B4 ,M) 

1150 CALL KEY(O,K,S):: IF S=0 THEN 1200 
1140 IF K=72 THEN F=0 GOTO 1220 

1170 IF K=86 THEN F=1 :: GOTO 1220 

1180 IF K=49 THEN 1210 

1170 IF K=46 THEN 1070 

1200 CALL SOUND(20,440,10):: 
1210 CALL HCHAR(CA4,D4,M):: 
1220 CALL KEY(O,K,S):: 
1220 IF K=46 THEN 1070 
1240 IF K)=48 AND K<=57 THEN 1260 

1250 CALL SOUND(20,330,10):: GOTO 1220 
1260 FOR T=1 TO 50 :: NEXT T K=K-48 :: 
K1=K 

1270 CALL KEY(O,K,S):: IF S=0 THEN 1210 
1280 IF K=46 THEN 1070 

1250 LF K=32 THEN K3=K1 :: GOTO 1380 

1300 IF K)=48 AND K<=57 THEN 1320 

1310 CALL SOUND(20,220,10):: GOTO 1270 
1320 FOR T=1 TO 50 :: NEXT T :: K=K-48 :: 
KZ=K 

1330 CALL KEY(O,K,S):: IF S=0 THEN 1370 
1340 IF K=46 THEN 1070 

1350 IF K=32 THEN K3=K2+(K1#10):: GOTO 13 

80 

1360 IF K)=48 AND K<=57 THEN K=K-48 :: K3 

=K+CK2#10)+CK1*100):: GOTO 1380 

1370 CALL SOUMD(20,110,10):: GOTO 1330 
1380 IF K3=0 THEN 640 

1390 IF K3=1 THEN 1210 


GOTO 1150 
GOTO 640 
IF S=0 THEN 1250 
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1400 IF F=0 THEN 1430 ELSE Cé=((31-D4)»24 
>+(24-(C4-1)) * 

1410 IF K3)Cé THEN K3=Cé 

1420 CALL VCHAR(C4,D4,M,K2):: GOTO 640 
1420 K4=31-(D4-1):: Cé=((24-C4)»#25)+K4 
1440 IF K3)>C4 THEN K3=Cé 

1450 IF K23<4=K4 THEN CALL HCHAR(C4,D4,M,K3 
):: GOTO 4640 

1460 KS=K3-K4 :: Ké=INT(KS/25):: K7=K3-CC 
Ké#x*25)+K4):: CALL HCHAR(CA,D4,M,K4) 

1470 IF Ké=0 THEN 1510 

1480 IF Ké=1 THEN 1520 

1490 FOR C7=C4+1 TQ C4+Ké :: 
7,7,M,25):: NEXT C7 

1500 IF K7=0 THEN 640 ELSE CALL HCHAR(C?7, 
7,M,K7):: GOTO 640 

1510 IF K7=0 THEN 640 ELSE CALL HCHAR(C4+ 


CALL HCHAR(C 


J37,MK7):: GOTO 640 


1520 CALL HCHAR(C4+1,7,M,25) 

1530 IF K7=0 THEN 640 ELSE CALL HCHAR(C4+ 
2,7,M,K7):: GOTO 640 

1540 CALL PATTERN(H1,32):: FOR I=1 TO 24 
1: FOR J=7 TO 31 :: CALL GCHAR(I,J,MD:: 
K=J-6 1: WCI,K)=M NEXT J :: NEXT 1! 
1550 CALL CLEAR :: FOR A=1 TO 12 :: CALL 
COLOR(A,2,8):: NEXT À :: CALL CHARSET : 
: CALL SCREEN(8):: CALL CLEAR 

1560 OPEN #1:"CS1",INTERNAL ,OUTPUT ,F1XED 
128 

1570 FOR I=1 TO 24 


1580 PRINT Hi:WCI,1),WC1,2) ,WC1,3) UCI ,4) 
WCI,5) ,WCI,6) ,WCI,7) ,WCI,8) ,WCI1,9) ,WCI 
110) ,WCI,11) ,WC1,12) ,WCI,12) 

1590 PRINT #1i:WCI,14),WC1,15),WC1,16) ,WCI 
,17),W£1,18) ,WCI,192,WC1,20 ,WCI,21) ,WC 
1,22), ,WC1,23) ,WCI,24) ,UCI,25) 

1600 NEXT I :: CLOSE Hi :: END 

1610 FOR I=1 TO 24 :: FOR J=1i TO 25 
W£I,J):: K=J+é CALL HCHAR(I ,K,E):: 

EXT J :: NEXT I :: RETURN 
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Acces au mode Bit-Map en Basic 


Geracd Basonc et lean Marin 


NDLR : le systôême C1 employé 
pour acceder ay mode Bit-Map 
Jarsse très peu de place pour le 
programme Basic et nest donc 
pas vtil'sable avec un contrôleur 
de gdisguéettes, puisque celuïi-c} 
utilise 3 partie haute de /3 
memoire vIdé0. 


Le Bit-Map est le mode graphique Île 
plus puissant de notre TI-99/4A. |] 
permet d'allumer ou d'éteindre Îles 
49152 pixels qui constituent notre 
écran de télévision. 


La compatibilité de ce mode graphique 
haute résolution et du Basic, dont la 
facilité d'emploi nest plus à 
demontrer, est désormais possible 
pour tout possesseur de Mini-mémoire. 


Dans le numéro 6 de “99 Magazine”, 
nous vous proposions un article sur 
l'écriture directe dans les registres 
VDP, à l'aide d'un CALL PEEKV(A,X), A 
étant calculé à l'aide de notre formule 


A=-52768*256*N+D. 


Cette formule nous a permis de mettre 
au point, en Basic et avec la 
Mini-mémoire, l'accès au mode 
Bit-Map. L'accès à ce mode est un peu 
lent car il faut initialiser tous les 
registres du processeur vidéo de la 
façon suivante : 


mode Bit-Map (CALL 
PEEKV(-32766,X)); 

RL: inchangé; 

R2=6: met la table d'écran de 
6144 à 6911; 

R3 = 255 : met la table des couleurs 
de 9192 à 14335 Eile 
définit des couleurs sur 
6Ko au lieu de 16 octets, 
ce qui constitue tout de 
même une énorme 
différence; 
met la table des formes de 
0 à 6143; 


met la table de 


ÉSÉÉIÉIIIIÉETÉSÉIIIÉSYE 


# Le mode 
% avec 


Bi tMap 
le Basic 


+ 
x 


KEREREFEÉÉEREERELLLEEIEE 


description des lutins de 
6912 à 7039; 
met la table des formes 
des lutins de 6144 à 9191. 
La zone 6144 à 6911 est 
dé jà utilisée par l'écran, il 
° reste donc 128 formes 
possibles pour les lutins; 
contient simplement la 
couleur d'écran et un CAZL 
SCREEN suffira. 


Les huit registres étant positionnés, il 
faut par ailleurs empêcher le Basic de 
se mélanger avec le Bit-Map. 11 suffira 
pour cela de déplacer la pile, 
empêchant ainsi les variables de 
monter et la pile de se mélanger. I] 
faudra mettre cette pile en 14336, ce 
qui permet d'avoir exactement deux Ko 
disponibles pour le programme Basic 
(jusqu'en 16383). CALL LOAD(-31890, 
56,0) réalise ce déplacement. 


Le mode Bit-Map, à une restriction 
près, peut maintenant fonctionner. 
Quel est cet “à peu près” ? Entre 958 
et 1007, le Basic occupe encore des 
octets et, pour l'instant, 6 carreaux de 
la quatrième ligne sont perdus. La 
solution adoptée pour résoudre ce 
problème consiste à échanger ces 6 
carreaux contre 6 carreaux invisibles 
de la colonne numéro | qui, comme 
chacun le sait, n'apparaît pas sur nos 
téléviseurs français, sauf avec un 
réglage particulier. 

Sans entrer dans le détail du 
programme dont le listing est joint, 
nous précisons cependant quelques 
points 


e la numérotation des cases est faite 
a priori Comme on ne peut pas 
numéroter de O à 767, on numérote 
de O à 255 trois fois de suite; 

e la table des formes fonctionne 
exactement comme en Basic 
Standard. 11 y a 768 formes de 8 
octets chacune, soit 6144 octets. La 
forme contient des points allumés 
et des points éteints comme avec 


140 
150 
160 
170 


REM  +# 
REM + 
REM 
FEM 


CALL CHAR, mais nous avons trois 
tables de 256 caractères chacune. 
Le carreau comporte huit lignes de 
huit pixels qui peuvent être allumés 
ou éteints; 

la table des couleurs : à chaque 
carreau correspond huit octets, il y 
a donc 768 fois huit octets. A 
chaque segment de huit pixels d'un 
carreau correspond un octet dans la 
table des couleurs. Cet octet va 
contenir deux couleurs de 0 à 15 (la 
couleur des points allumés et celle 
des points éteints) Au lieu 
d'attribuer une couleur à huit 
formes, on l'attribue à 1/8ème de 
forme. On met donc dans cet octet 
16 fois la couleur des points 
allumés plus celle des points 
éteints; 

l'initialisation du programme (ligne 
100 à 350) est suivie d'un calcul 
traçant une courbe. Les lignes 360 à 
500 permettent d'allumer des 
pixels; 

vous pourrez appliquer vos propres 
formules pour calculer Y, X et C pour 
la couleur. Nous effectuons des 
calculs binaires programmés en 
Basic pour aller lire l'ancienne 
forme et la modifier. Le pixel est 
ensuite allumé et colorié; 


le programme se termine par un 
classique test du clavier; une 
intervention sur celui-ci restaure le 
mode standard en remettant O dans 
RO. 


A l'exécution de ce programme, vous 
constaterez que nous arrivons un peu 
aux limites du Basic pour ce qui est de 
la vitesse d'exécution. 


En langage machine, l'initialisation par 
un CALL LINKC'IN/T") puis l'emploi 
des routines ‘“PO/NT® ‘DAROITE”, 
etc. nous procure une vitesse 
beaucoup plus agréable mais, ceci est 
une autre histoire que nous vous 
conterons une prochaine fois. 

(a) 


Basic TI + x 
Mini memoire * 


EEKÉÉÉEÉÉÉEÉELEEÉEEEEHE 
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REM  INIT 
CALL SCREEN(1) 
CALL LOAD(-31890,56,0) 
CALL CLEAR 
FOR 1=0 TO 8 
230 PCI)=2"I 
240 NEXT I 
250 CALL PEEKU(-32766,X,"",-32250,X,"",-3 
1745,X,"",-31741,X,"",-31434,X,"",-3122 
9,X) 
260 CALL POKEV(4712,208) 
270 FOR 1=0 TO 2 
280 FOR A=0 TO 255 STEP 8 
290 CALL POKEV(A+256#1+6144,A,A+1 ,A+2,A+3 
,A+4,A+5,A+6,A+7) 
300 NEXT À 
310 NEXT I! 
320 FOR I=1 TO 7 
330 CALL POKEV(6144+32%I ,0) 
340 NEXT 1 . 
350 CALL POKEU(4263,32,464,96,128,160,192, 
224) : 
360 CALL ‘SOUND(-100,440,0) 
370 FOR A=0 TO 9551 STEP 8 
380 CALL POKEV(A,0,0,0,0,0,0,0,0) 
350 NEXT À 


Comme son nom l'indique, ‘Music Box 
Dancer” est un programme musical, 
écrit en Basic TI. 

Le mode 
Vous pouvez choisir différents 
100 REM HREHÉEHEERERÉEEREREXXX 
110 REM * Music Box Dancer x 
120 REM ÉEXEHÉEEKEEEÉEÉEEEEELEEEXX 
120 REM * Basic TI * 
140 REM XXE ELEXXEÉEEREEELEEE 
150 REM 
160 CALL CLEAR 
170 REM 
180 REM 
190 REM 
200 REM 
210 -REM 5 se Ne sad 
220 A=131 
230 B=147 
240 C=165 


250 D=175 " 

260 E=196 _” 

270 G=262 Ù 

280 H=294 ; 1 

290 1=220 719 “3 , 

300 J=349 © Re 
PT 

led 


310 K=292 

320 L=440 dis b 
230 M=523 NE 4 
240 N=587 A ie D 
250 0=659 F \ 

360 P=698 $ 

270 Q=724 

380 R=280 
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paramètres, comme la durée des notes, 
le tempo, l'accompagnement, etc... 


d'emploi 
programme, nous 


400 FOR A=1008 TO 6143 STEP & 

410 CALL POKEU(A,0,0,0,0,0,0,0,0) 

420 NEXT À 

430 CALL SOUND(-100,440,0) 

440 REM COURBE 

450 C=22 

460 FOR T=0 TO 340 

470 Y=96+INT(F0#*COSCT/S4) ) 

480 X=12B#+INTC(110XSINCT/14)) 

450 V=INT(Y/8) 

500 H=INT(X/8) 

510 N=7-X+8%H 

520 A=248x0+8%H+Y 

530 A=A+(ADFS1)#(A(1008) #(24BxH+77236#U-30 
208) 

540 DI1=P(N) 

550 CALL PEEKV(A,D) 

S6é0 Di=D+D1+D1#C(D-PCN+41)#INT(D/PCN+#1))>=P 


(ND 


570 CALL POKEV(A,D1,"",81924A,C) 
580 NEXT I! 

590 REM FIN 

600 CALL KEY(S,R,E) 

610 IF E=Q0 THEN 600 

620 CALL PEEKU(-32768,X) 


Music Box Dancer 
Jacques Mercier 


exécuter ce programme qui prouve, si 
besoin était, que notre TI est aussi un 
excellent musicien. 

étant de le O 
vous laissons 


250 S5=1047 

AOÛ IREM à cons 
410 REM 
420 REM 
430 REM 
440 REM 
450 PRINT ÉREÉÉEEEÉELEEÉEÉEEÉSEEEE" 
460 PRINT " #* MUSIC EOX DANCER +" 
470 PRINT " ÉXÉERÉEÉEREÉÉERÉEEEREEX!" 
480 FOR F=1 TO 8 

4970 PRINT 

500 NEXT F 

510 CALL SOUND(1000,121,0,292,2,330,1) 
520 FOR DEL=1 TO 900 

520 NEXT DEL 

940 FOR F=i TO 30 

SS0 PRINT 

560 NMEXT F 

970 PRINT "UQULEZ VOUS CHOISIR LE 
THME ET LES LUOLUMES?(O/N) " 

020 FOR F=1 TO 9 

570 PRINT 

600 NEXT F 

é1Q0 CALL SOUND(120,392,0) 

620 CALL KEY(O,KY,ST) 

630 IF ST=0 THEN 4620 

640 CALL SOUND(250,1047,0,392,0,131,0) 
650 IF KY=79 THEN 720 

660 IF KY=78 THEN 670 ELSE 420 


AFFICHAGE DU TITRE 





Un 
Un 


670 X=275 1360 NEXT DEL 
680 Z=2#X 1370 CALL CLEAR 
650 T=0 1280 PRINT " CHOISISSEZ LE 
700 Y=8 VOLUME DU CHANT" 
710 W=4 1390 PRINT 
720 GOTO 3060 1400 PRINT 
730 REM . 1410 PRINT 
240 REM 1420 PRINT " (0 À 9)" 
750 REM CHOIX DES 1430 PRINT 
PARAMETRES 1440 PRINT "(CS POUR SUPPRIMER LE CHANT)" 
760 REM 1450 PRINT 
CC REM memes aceec de ot dus 1440 PRINT 
780 FOR F=1 TO 15 1470 CALL SOUND(120,1047,0) 
790 PRINT 1480 CALL KEY(O,KEY,ST) 
800 NEXT F 1490 IF ST=0 THEN 1480 
PiU FRIMT TENPEr 1500 CALL SOUND(350,131,0,392,0,1047,0) 
820 PRINT ubhh à 1510 IF KEY=57 THEN 1420 
830 PRINT 1520 IF KEY=56 THEN 1640 
840 PRINT APPUYEZ SUR:" 1520 IF KEY=55 THEN 1660 
8é0 PRINT POUR 200 MILLISECONDES" 1540 IF KEY=54 THEN 1680 
870 PRINT 1550 IF KEY=52 THEN 1700 
880 PRINT POUR 400 MILLISECONDES" 1560 IF KEY=52 THEN 1720 
970 PRINT 1570 IF KEY=51 THEN 1740 
500 PRINT POUR 450 MILLISECONDES" 1580 IF KEY=50 THEN 1760 
910 PRINT 1590 IF KEY=49 THEN 1780 
920 PRINT POUR MILLI SECONDES" 1600 IF KEY=48 THEN 1800 
$30 PRINT 1610 IF KEY=82 THEN 1820 ELSE 1480 
$40 PRINT " 5 POUR 550 MILLISECONDES" 1620 T=9 
950 PRINT 1630 GOTO 1840 
S60 PRINT " 6 POUR 600 MILLISECONDES" 1640 T=8 
970 CALL SOUND(120,372,0) 1650 GOTO 1840 
F0 CALL KEY(O,KEY,ST) 1660 T=7 
990 IF ST=0 THEN 930 1670 GOTO 1840 
1000 CALL SOUND(350,131,0,392,0,1047,0) 1680 T=é 
1010 IF KEY=49 THEN 1070 1690 GOTO 1840 
1020 IF KEY=50 THEN 1100 1700 T=S 
1020 IF KEY=51 THEN 1130 1710 GOTO 1840 
1040 IF KEY=S52 THEN 1160 1720 T=4 
1050 IF KEY=S3 THEN 1190 1730 GOTO 1840 
1040 IF KEY=54 THEN 1220 ELSE 980 1740 T=3 
1070 X=150 1750 GOTO 1840 
1080 Z=300 1760 T=2 
1090 GOTO 1250 1770 GOTO 1840 
1100 X=200 1780 T=1 
1110 Z=400 1770 GOTO 1840 
1120 GOTO 1250 1800 T=0 
1130 X=22?5 1810 GOTO 1840 
1140 2=450 1820 T=30 
1150 GOTO 1250 1230 GOTQO 1840 
1160 X=250 1840 REM 
1170 Z=500 1850 REM 
1180 GOTO 1250 1840 REM CHOIX DU 
1190 X=275 VOLUME DE L' ACCOMPAGNEM 
1200 Z=2%X ENT 
1210 GOTO 1250 1870 REM 
1220 X=200 NE 2 redoute 
1230 Z=6400 | 1890 CALL CLEAR 
1240 GOTO 1250 1900 PRINT " CHOISISSEZ LE 
1250 CALL CLEAR VOLUME DE L’ACCOMPAGNEMENT " 
ITAD REN sistema 1910 PRINT 
1270 REM 1920 PRINT 
1280 REM CHOIX DES 1930 PRINT 
UOLUMES 1940 PRINT 
1290 REM 1750 PRINT 
1200 REM 17960 PRINT " (O0 À 9)" 
1310 PRINT " 1970 PRINT 
DECROIT DE O0 À 9 !... 1980 PRINT (S POUR LE SUPPRIMER)" 
Û 1990 PRINT 
13220 FOR F=1 TO & 2000 PRINT 
1330 PRINT 2010 PRINT 
1240 NEXT F 2020 PRINT 
1350 FOR DEL=1 TO 1500 2030 CALL SOUND(120,3972,0) 
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2040 CALL KEY(O,KY,ST) 2740 W=7 
2050 IF ST=0 THEN 2040 2750 GOTO 
2060 CALL SOUND(350,121,0,392,0,1047,0) 2760 W=é 
2070 IF KY=57 THEN 2180 2770 GOTO 
2080 IF KY=56 THEN 2200 2780 W=5 
2090 IF KY=55 THEN 2220 | 2770 GOTO 2920 
2100 IF KY=54 THEN 2240 22800 lJ=4 
2110 IF KY=53 THEN 22460 2810 GOTO 2920 
2120 IF KY=52 THEN 2280 2820 W=3 
2130 IF KY=51 THEN 2200 2830 GOTO Zz9720 
2140 IF KY=50 THEN 2320 2840. W=2 
2150 IF KY=49 THEN 2340 2850 GOTO 2920 
2160 IF KY=48 THEN 23460 2860 W=1 
2170 IF KY=82 THEN 2380 ELSE 2040 2870 GOTO 2920 
2190 Y=9 ‘ 2880 l=30 
2190 GOTO 2400 2870 GOTO 2720 
2200 Y=8 2700 UW=Q 
2210 GOTQO 2400 2710 GOTQ 2720 
2220 Y=7 2920 CALL CLEAR 
2230 GOTO 2400 2930 PRINT "DES CORRECTIONS À APPORTER? 
2240 Y=é | ( 
2250 GOTO 2400 ON)" 
2260 Y=5 2940 FOR F=1 TO 8 
2270 GOTO 2400 2750 PRINT 
2280 Y=4 2960 NEXT F 
2250 GQTO 2400Q 2970 CALL KEY(O,KY,ST) 
2300 Y=2 2980 IF ST=0 THEN 2970 
2310 GOTO Zz400 2990 IF KY=79 THEN 730 
2320 Y=2 2000 IF KY=78 THEN 3010 ELSE 2570 
2220 GOTQO 2400 AOLO REÉME & vu tete nan are fe are arte ai 
2340 Y=1 2020 REM 
2250 GOTO 2400 3030 REM MUSIC EOX DANCER 
2360 Y=0 3040 REM 
2370 GOTO 2400 A0S0 /REM 25 dense aus 
2380 Y=20 3060 CALL CLEAR 
2350 GOTO 2400 3070 PRINT " ÉHEXKELLEREEEÉEÉEEEEXEXE" 
2400 REM ... ; 3080 PRINT " * MUSIC BOX DANCER *" 
2410 REM 2090 PRINT " ÉÉHKEEEEERELEEEEERELEXE 
2420 REM 3100 FOR F=1 TO 5 

BASSE 3110 PRINT 
2430 REM 3120 NEXT F 
PAQ0  PEM ie ete 3130 PRINT " TEMPO:";2Z;"MILLISECONDES" 
2450 CALL CLEAR 3140 PRINT 
2460 PRINT " CHOISISSEZ LE VOLUME DE 3150 PRINT " VOLUME CHANT: "3T 

LA BASSE" 3160 PRINT 

2470 PRINT 3170 PRINT " VOLUME ACCOMPAGNEMENT :" ;Y 
2480 PRINT 3180 PRINT 
2450 PRINT (G À 9)" 3190 PRINT " VOLUME BASSE:";U 
2500 PRINT 3200 PRINT 
2510 PRINT €S POUR LA SUPPRIMER)" 3210 FOR DEL=1 TO &00 
2520 PRINT 3220 NEXT DEL 
2530 PRINT 2230 REM 
2540 PRINT 3240 FOR DEL=1 TO 3 
2550 CALL SOUND(120,131,0) 3250 CALL SOUNDCX,G,T) 
2560 CALL KEY(O,KY,ST) 3260 CALL SOUND(X,1I,T) 
2570 IF ST=0Q0 THEN 2540 3270 CALL SOUND(X,K,T) 
2580 CALL SOUND(350,121,0,1047,0,392,0) 3280 CALL SOUNDEX,1,T) 
2590 IF KY=57 THEN 2700 3290 CALL SOUMDEX,M,T) 
2600 IF KY=56 THEN 2720 3300 CALL SOUNDEX,K,T) 
2610 IF KY=S55 THEN 2740 3310 CALL SOUND(X,1,7T) 
2620 IF KY=54 THEN 2760 3320 CALL SOUND(X,K,T) 
2630 IF KY=52 THEN 2780 3330 NEXT DEL 
2440 IF KY=52 THEN 2800 3340 CALL SOUND(X,G,T) 
2660 IF KY=50 THEN 2840 3360 CALL SOUND(X,K,T) 
2470 IF KY=49 THEN 2840 3270 CALL SOUMDEX,I,T) 
2430 IF KY=48 THEN 2500 3380 CALL SOUND(X,M,T) 
Zé5Q IF KY=82 THEN 2880 ELSE 2540 3390 CALL SOUNDCX,K,T) 
2700 W=9 3400 CALL SOUND{X,I,T) 
2710 GOTO 2920 2410 FOR U=i TO 2 
2720 W=e 3420 CALL SOUND{X,M,T,K,Y) 
2720 GOTO 29520 3430 CALL SOUNDEX MT, G,Y) 
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3440 € SOUNDCX ,K,T,I,Y) CALL SOUND(X,98 
3450 C SOUNDCX ,M,T,K,Y) CALL SOUND(X,R 
3460 C SOUND{X,0,T,G,Y) CALL SOUND(X, QG 
3470 C SOUNDCX,M,T,1,Y) CALL SOUND(X,Q 
2480 C SOUND{X,O0,T,K,Y) CALL SOUND{X,Q 
3470 C SOUNDCX,Q,T,G,Y) CALL SOUND(X,C 
3500 C SOUND{X ,M,T,K,Y) CALL SOUNDCX,G 
3510 C SOUNDCX,S,T,J,Y) 4230 CALL SOUND(X,Q 
2520 C SOUND(X,788,7T,L,Y) CALL SOUND(X,P 
3530 C SOUNDCX ,R,T,M,Y) S0 CALL SOUNDCX,N 
3540 C SOUND(X,Q,T,P,Y) CALL SOUND(X,4 
3550 C SOUND(X,Q,T,G,Y) 70 CALL SOUND(X,K,T 
3560 SOUND(X,Q,T,K,Y) CALL SOUND(X, 494, 
3570 C SOUNDCX ,K,T) CALL SOUND(X,N, 
3580 SOUND{X ,M,T) ; CALL SOUND(X,P, 
3970 C SOUND(X,Q,T,E,Y) 3 CALL SOUND(CX,0, 
3600 SOUND(X,P,T,247,Y) CALL SOUND(X M 
3610 C SOUNDCX ,N,T,H,Y) CALL SOUNDOX,R, 
3420 SOUND(X,494,T,K,Y) CALL SOUND(X ,Q 
2630 C SOUNDCX,K,T,247,Y) 3 CALL SOUND{X,0Q, 
2640 C SOUND(X,494,T,H,Y) CALL SQUND(X ,0 , 
3650 C SOUNDCX NT, K,Y) 3 CALL SOUNDCX,I, 
3660 SOUND{X ,P,T,H,Y) 3 CALL SOUNDCX,M, 
3670 C SOUND(X,0,T,G,Y) CALL SOUND(X,M, 
32480 SOUNDCX ,M,T,I,Y) CALL SOUMNDCX,K, 
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3650 SOUNDCX,R,T,M,Y)D CALL SOUNDCX,M 
3700 C SOUND(X,G,T,K,Y) CALL SOUND{X, 0 
3710 C SOUNDCX,Q,T,1,Y) 30 CALL SOUND{X,M 
3720 SOUND(X,Q,T,K,Y) CALL SOUND(X,0 
2730 C SOUNDCX ,M,T) SQ CALL SOUND(X,Q 
3740 SOUND(X,M,T,K,Y) CALL SOUND(X ,M 
3750 C SOUND(X,M,T,G,Y) 70 CALL SOUND(X,S 
23760 SOUND(X,K,T,I,Y) CALL HU à 
3770 C SOUND(X,M,T,K,Y) CALL 
3780 C SOUND(X,0,T,G,Y) 500 CALL S 
3790 C SOUND(X,M,T,1,Y) 510 CALL SOUND(X , Q 
3800 SOUND(X,0,T,K,Y) 20 CALL SOUND(X,Q 
2810 SOUND(X,Q,T,G,Y) S CALL SOUND(X, I 
3820 SOUND(X,M,T,K,Y) CALL SOUND(X,K 
3830 C SOUNDCX,S,T,J,Y) CALL SOUND(X,Q 
2840 SOUND(X,988,T,L,Y) CALL SOUND(X,P 
3850 SOUNDCX,R,T,M,Y)D 570 CALL SOUNDEX,N 
3840 SOUND(X,Q,T,P,Y) CALL SOUND(X,4 
3870 C SOUND(X,G,T,G,Y) 590 CALL SOUND(X,K, 
2880 SOUND(X,Q,T,K,Y) CALL SOUND(X, 49 
3e50 C SOUND(X,K,T) CALL SOUNDCX N, 
3700 SOUND(X,M,T) CALL SOUND(X,49 
3910 C SOUND(X,Q,T,E,Y) 30 CALL SOUND(X,M 
3920 C SOUND(X,P,T,247,Y) CALL SOUND(X,K 
3930 C SOUND(X,N,T,H,Y) CALL SOUND(X, Q 
32740 SOUND(X,494,T,K,Y) CALL SOUND(X ,M 
2950 C SOUND(X,K,T,247,Y) CALL  SOUNDCX ,M 
3960 SOUND(X,494,T,H,Y) CALL SOUND(X ,M 
3970 C SOUNDCX ,N,T,K,Y) CALL SOUND(X,M 
3780 SOUND(X,494,T,H,Y) C CALL SOUND(X ,M 
3990 C SOUND(X,M,T,G,Y) V=0 
4000 SOUND(X,K,T,1,Y) 20 V=U+1 
4010 SOUNDCX,0,T,K,Y) 730 CALL SOUND(X,S 
4020 SOUND(X,M,T,M,Y) 7 CALL SOUND(X,R 
4020 C SOUNDCX,M,T,1,Y) CALL SOUND(X,P 
4040 SOUND(X,M,T,K,Y) CALL SOUND(X,M 
4050 C SOUND(X,M,T)D CALL SOUND(X,L 
4060 SOUND(X,M,T,E,Y) CALL SOUND(X,M 
P 
R 
Q 
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4070 C SOUNDCX,M,T,A,Y) 7 CALL SOUND(X, 
4080 C SOUND(X,K,T, 


0000000 Z 


CALL SOUND(X, 
CALL SOUND(X, 
CALL SOUND(X, 
CALL SOUND(X, 
CALL SOUND(X, 
CALL SOUND(X,Q 
IF U=2 THEN 5080 
CALL SOUND(X,Q,T,K,Y, 


VS = ‘ = ‘= = 


P 

J 

L 

L 

J 

4 

L 

K 

4050 C SOUNDCX,M,T À 
4100 C SOUND(X,O,T, K 
4110 C SOUNDCX,M,T G 
4120 C SOLND(X,Q,T 
7 

r 

T 


nm 
. + += © + "= «= = = = — = + 


K<<<E<<<<<<<- 


Ts 
TT, 
Ts, 
TT; 
TT, 
TT; 
Ts 
Ts 
To 
Ts 
Ts 
Ts 
TT; 


E 
I 
I 
E 
E 
I 


I 
4130 C SOUND(X,Q, K 
4140 C SOUND(X,M, 


4150 C SOUNDCX 5, 


EZ<<<<<<- 
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4280 CALL SOUNDEX,I,T, A ,U) 

4850 CALL SOUMDCX,K,T, A, Uk) 

4700 CALL SOUNDÉX OST NT KT) 
4710 CALL SOUNDCX,P,T,K,Y, El) 
4720 CALL SQUND(X,N,T,247,Y,E.U) 
4720 CALL SOUND(X,474,T,247,Y,E,U) 
4940 CALL SOUND(X,K,T,I,Y,E UD) | 
4750 CALL SOUND(X,494,T,247,Y,E,UW) CALL CLEAR 

4760 CALL SOUNDEX,NT,H,Y,E UD) PRINT "JE VOUS RAPPELLE LE CHOIX 
4570 IF V=3 THEN 5120 UE VOUS AUIEZ FAIT:" 

4780 CALL SQOUNDCX,P,T,K,Y,E,UW) 5400 PRINT 

4590 CALL SOUND(X,Q,T,A,U) 5410 PRINT "TEMPQ:"3;2;"MILLISECONDES" 
5000 CALL SOUHDCX,M,T,G,Y,A,U) 5420 PRINT 

SoiQ CALL SOUNDEX,R,T,O,Y, AU) 5420 PRINT "VOLUME CHANT: "3T 

5020 CALL SOUNDEX,Q,T,O,Y, A, 5440 PRINT 

5020 CALL SOUNDEX,QT,M,Y, A, UD) 5450 PRINT "VOLUME ACCOMPAGNEMENT : "35 Y 
S040 CALL SOUNDCX,O,T,M,Y,A,U) 5460 PRINT 

5050 CALL SOUNDCX,O,T,S,Y,A,U) sv PRINT "UOLUME EASSE:" 3; 
5060 CALL SOUNDEX,Q,T,J,Y,A,U) 5480 PRINT 

S07Q0 IF V=i THEM 4720 ELSE 32767 54570 PRINT 

5090 CALL SOUNDEX MT, K,Y A4) « 5500 PRINT "SOUHSITERIEZ VOUS EFFECTUER D 
5090 CALL SOUNDEX MT, I,Y 4,4) ES MODIFICATIONS? (Q/N)" 

5100 CALL SOUNDCX MT K,Y AUD) 5510 PRINT 

S11Q V=u#1 5520 PRINT 

5120 IF V=3 THEN 4900 5520 CALL SQUMD(120,252,0) 

S120 CALL SOUMD(X,454,T,K,Y.D,UD) 5540 CALL KEY{O,KY,ST) 

5140 CALL SOUNDEX M,T,G,Y, Ab) IF ST=0 THEN SSdgû 

SISQ CALL SOUMHDCX,K,T,G,Y,A,U) #0 IF KY=78 THEN 3010 

51460 CALL SOUNDEX OT, I,Y,A,W) FO IF KY=75 THEN SS80 ELSE 5540 
5170 CALL SOUMDEX MT, K,Y, A.) 80 INPUT "TEMPO: 

5120 CALL SOUNDEZ MT, L,7,4,2) A 4250 MILLISECONDES)?":2 

5170 CALL SOUND(X,110,230) 590 PRINT 

5200 MEXT U é00 PRINT " ATTENTION LE VOLUME 
5210 CALL SOUND(Z,110,20) DECROIT DE 0 4 30!.. 

5220 FOR F=1 TO 30 SéiQ PRINT 

5230 PRINT SéZQ INPUT "VOLUME CHANT 

5240 MEXT F Q À 30)7":T 

S250 PRINT " ENCORE UNE FOIS? <CO/N)" 630 IMPUT "VOLUME ACCOMPAGNEMENT 
5240 FOR F=1 TO 10 0 À 30)2?7":Y 

5270 PRINT Sé40 INPUT "UOLUME BASSE 

5280 MEXT F 0 À 30)?":l 

5250 CALL KEY(CO,KY,ST) Sés0 x=2/2 

5300 IF ST=0 THEN 5290 Séé0 GOTO 3010 


on 


Len] 


IF KY=78 THEN 5330 
IF FY=797 THEN 5280 
PRINT " 

PRINT 

PRINT 

PRINT 

END 


cn 
to — 


on 
JD On B 
290000 


oO 


9 0) 0) 0 (0 9j O9 CO Où 
0 © 


NnNnAMEAnE 


Q 


Erratum Des nouvelles du Club Ticazur 


Vous avez certainement remarqué, Le nouveau numéro de téléphone est le 32.63.16 (appels si possible entre 20 
dans le listing du programme “Edipage” et 22H). 


publié dans le numéro 6, une ligne tout Le cours d'initiation au Basic de Jean Marin est constitué de dix programmes 
à fait étrange : de six à sept Ko chacun, sur une seule cassette et non, comme je vous l'avais 


2000 *SGN CALL GOTO LOG & ! indiqué par erreur sur dix cassettes. Chaque programme représente bien deux 
Cette superbe chose provient d'une heures de cours. 


fantaisie de l'interpréteur, certai- 
nement düe à une micro-coupure de Chaque cours de Jean Marin sur l'utilisation de la Mini-mémoire fait l'objet 


courant. 
En fait, la ligne 2000 était : 
2000 T$(L-2,C-2)=" * 


d'un compte-rendu dactylographié et dont les photocopies sont mises à la 
disposition des membres du club. 
Six comptes-rendu ont été établis à ce jour représentant une trentaine de 


Rav. pages. 
Nous avons eu droit à une autre 


aberration un peu plus loin, mais cette Gérard Baroni 

fois moins embêtante, puisqu'il Président de Ticazur 
s'agissait uniquement de la Villa Héléna 
juxtaposition des lignes 2130 et 2140. Chemin des Bas-Campons 


(s 06480 La Colle-sur-Loup 
Tél : 32.63.16 
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Routines Graphiques pour le Basic 


Etendu 


Marianne Sutz 


Pour faire suite à de nombreuses 
demandes de lecteurs ne disposant pas 
de l'éditeur/assembleur ou de Ja 
Mini-mémoire, mais désirant avoir 
accès aux routines graphiques publiées 
dans les précédents numéros de “99 
Magazine, nous vous proposons une 
version modifiée de certaines d'entre 
elles. 


Afin de ne pas perturber le 
fonctionnement du Basic Etendu, nous 
avons dû faire quelques sacrifices : le 
choix des couleurs est beaucoup plus 
réduit (une seule couleur pour tous les 
points “on” et ‘off") et le nombre de 
routines a été légèrement diminué. 


EF 


Cette routine remplace la routine EFFP 
des versions précédentes. Elle 
réinitialise le tampon TIMAGE (image 
virtuelle en mémoire vive CPU) et ne 
requiert pas  d'argument. Pour 
l'appeler : 

CALL LINK("EF") 


PO 


Remplace ia routine POINT destinée à 
afficher un point aux coordonnées X-Y. 
Le passage des paramètres est réalisé 
au moyen de l'instruction C4/1/ /0AD 
Ainsi, la séquence : 

CALL LOAD(9730,127,96) 

CALL LINK("P0") 

affiche un point au centre de l'écran. 


LI 


Trace une ligne entre deux points 
quelconques. Les coordonnées X1, Y1, 
X2 et Y2 sont passées à la routine par 
CALL LOAD : 

CALL LOAD(9730,0,0,255,191) 

CALL LINK("LI*) 

trace une diagonale allant de l'angle 
inférieur gauche à l'angle supérieur 
droit de l'écran. 


LE 


Affiche le caractère de code ASCII W à 
l'intersection de la ligne Z et de la 
colonne € W doit être compris entre 
33 et 143 inclus et les caractères 
redéfinis par £CA/1 CHAR sont 
autorisés. 

CALL LOAD(9730,65,1,1) 

CALL LINK("LE") 

affiche un “A” dans le coin supérieur 
gauche de l'écran. 


IM 


Effectue le transfert de l'image 
virtuelle vers la mémoire vidéo. Le 
retour au Basic Etendu est assuré par 
la touche FCTN-3 (ERASE). 


Quelques précisions 


Couleur de l'écran 


La couleur par défaut de l'écran est 
noire mais {l est possible de la 
modifier en “pokant” une valeur à 
l'adresse 15895 (>3E17). cette valeur 
doit être comprise entre © (incolore) 
et 15 (blanc). Si elle est supérieure à 
15, le code de couleur résultant sera 
égal à : x AND 15 (voir ‘Les opérateurs 
logiques”, 99 Magazine numéro 5). 

Pour obtenir un écran bleu foncé : 

CALL LORD(15895,5). 


Couleurs des points ‘on' et “off” 


Les couleurs par défaut sont : jaune 
clair pour les ppints “on” et vert foncé 
pour les points off”. Pour modifier ces 
couleurs, il faut poker, à l'adresse 
16206 (>3F4E), une valeur ainsi 
calculée : 

code de la couleur pour les points “on” 
* 16 + code de la couleur des points 
"OfT. 

Pour obtenir des points blancs sur fond 
noir : 

CALL LOAD(16206,241) (15*16+1=241), 


Mémoire disponible pour le Basic 
Etendu 


Les routines en langage machine 
utilisent la section basse de 
l'extension 32Ko, et une partie de la 
section haute pour la routine ZÆet le 
tampon 7BAS/C jusqu'à l'adresse 
>CD69. I] reste donc pour votre 
programme la mémoire vidéo et 12950 
octets de mémoire vive CPU. 

Le Basic Etendu utilisant la section 
haute de l'extension 32Ko en partant 
des adresses les plus fortes, un 
programme trop important peut être 
partiellement détruit par le tampon 
TIMAGE; il faudra donc prendre garde 
à ne pas dépasser (vers le bas) 
l'adresse >CD69. En revanche, le risque 
de destruction d'une routine est très 
faible puisque la routine Z£Æ (la seule 
qui soit vulnérable) est située en 
>A000. 


Chargement du code objet 


Avant tout, ceux d'entre-vous qui 

disposent de lecteurs de disquettes 

devront utiliser la commande CA// 

FILES(1) pour deux raisons : 

e gain de place dans la mémoire vidéo 
pour le programme en Basic Etendu, 

e moins de risque de perturbations des 
blocs d'accès aux périphériques, qui 
peuvent être endommagés lors 

de l'exécution de la routine //7 


Pour le chargement du code, il faut 
employer le programme joint à cet 
article, qui implante directement les 
routines en mémoire. Une fois cette 
opération ‘exécutée, vous pouvez 
charger vos propres programmes. 


Si vous disposez d'un lecteur de 
disquettes, vous pouvez dans ce cas 
bénéficier d'un chargement plus rapide 
puisque le code objet correspondant au 
fichier source listé pages suivantes se 
trouve désormais sur la disquette 
"Routines graphiques”. Pour le charger : 
CALL IHIT 

CALL LORD("DSKx.O0BJETXB" ) 
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DEF, EF, POS IMLTSEE LIGNES MOU RI12,R12 
AORG >24602 JCT: LIGNEZ 
LIGNED DATA Q #. 97830 ê R5,RS 
LIGNEA DATA Q * 9732 s R8,R12 
CR7 DATA Q ‘ JMP LIGNES 
CR8 DATA 0 | LIGNE? À Ré,F10 
TIMAGE BSS )d>1800 A R7,RI12 
REGVDP DATA >0002,>0204,>03FF,)>0403 JMP LIGNES 
DATA D>0526,>0607,20711,2FFFF 
RVDPBA DATA >0000,>0200,>0320,>0400 LI PO,TIMAGE 
DATA D>0506,)>0400,20717,2FFFF CLR +RO+ 
ETAT EQU >837C CI FO,TIMAGE+)1200 
RCLAV  EQU  >8375 JEQ FHPLOT 
USEU EQU  >2020 JMP  EFFPI 
UMEUS EQU >2024 | MOUB aLIGNED,RG 
USBR EQU >2028 SPRL RO,8 
UMBR EQU >202C MOURB aLIGNED+1 ,R2 
KSCAN EQU  >201C SRL R2,8 
UUTR EQU »>2030 ET R2, 171 
JGT  FHPLOT 
LT MQOUB äaiLIGNED,R? . LT R1,1971 
SRL #R9,8 S R2,RI 
MOUB aLIGNEA,R7 MOU  R1,FR4 
RL R7,8 SLA R4,5 
MOU  R7,aCR7 SOC F1,F4 
MOUB GLIGNED+1,R2Z ANDI P4,>FF07 
SRE #R2,9 A RO ,R4 
GI R2,191 ANDI RO,7 
JGT LIGNES s RO ,R4 
ET R10,171 LA P3,)38000 
S R2,R10 SRC R3,0 
MOUR aLIGNEA+1,R2 SOCB R3,aTIMAGE(R4) 
SRL R2,8 FHPLOT BR aRETQOUR 
CI R2,191 
JGT LIGNES IM LI FR1,TBASIC 
LI P8,1971 LT RO ,>30n 
S R2,R8 LI R2,11520 
MOU  R8,aCR8 aUMBR 


CLR K12 1 F1,REGUDP 
LI RS, 1 #R1+,FR0 
LI Ré, 1 ITUUT 
5 PR? ,R7 AUUTE 
JLT LIGNE! IREM 
JMP  LIGNE2 | 
LIGNEI NEG RS | ITLUT RO,)1Bûû 
HEG R7 R1,)D000 
LIGNEZ MOU 7, R7 aUSEU 
JUNE  LIGNE3 
SETO F12 FO,)1200 
LIGNE3 S FR10,R8 Ro ,RI 
JLT LIGNE4 R1 
JMP LIGNES AUSEU 
LIGNE4 NEG Ré RQ 
MNEG° Re RO ,>1200+3300 
LIGNES MOUV  RF,Rû ITE 
MOV  Riû,Ri 
MQOU  R1,R4 RO, ,)20ûû 
SLA P4,5 P1,BCQ0 
SOC R1,R4 AVSEU 
ANDI R4,)FF07 RO 
A RG ,R4 RO ,>2800 
ANDI F0,7 TTÉ 
S RG ,R4 
6 R3,)8000 ro 
SRC R3,0 R1,TIMAGE 
SOCB R3,aTIMAGE(R4) R2,)1800 
C R9,aCR7 aUMEU 
JUNE LIGNE6 
C R1Q,aCR8 ak SCAN 


JNE LIGNEé dRCLAU, AREGL'OP +12 
LIGNES JMP  FHPLOT CLALU 
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LI  R1,RUDFBA 
MOU  +R1+,R0 
JLT TTBAS 
BLUP AUUTR 

JMF  IRE 


LI RO,Y 300 
LI RI,TBASIC 
LI R2,11520 
ELUWUF aUMBU 


LI  RO,)2FF 

LI R1,)8000 
ESPACE BLUP 3VSEBW 

DEC RO 

JOC ESPACE 


RETOUR CLR RO 
MOUB RO, 3ETAT 
RT 


AORG >A00Q 

MOVB GLIGNED ,R4 

SRL R4,8 

CI R4,32 

JLE L3 

LI R5,1024 

CI R4,143 

JH. L3 

AI R4,-32 
R4,3 


RÉEREEEÉEEÉEEEEEÉEEEERESS 
Li Ce programme * 
# implante Île code * 
cr objet dans * 
#%* l'extension 32Ko * 
HHRHAÉRÉEEEREEEEERELXEXX 
* Basic Etendu + * 
Le extension 232Ko * 
KÉÉEÉÉÉÉEEÉIÉERÉELREÉEEEEEXE 
# CALL FILES(1) / NEW +*# 
* avant execution * 
ÉHÉÉEEEEELERESEÉEREEHE EX XX 


182 
183 
184 
170 
200 C 
210 
220 
230! ! 
C 
L 


Pointeur premiere 
reference externe 
24û 
250 
2355 
260 
270 ! \ 
280 DATA 76,467,32,32,32,32,140,0,76,73,32 
,32:32,32,62,42,73,77,32,32,32,32,63,10 
270 DATA 80,797,32,32,32,32,62,210,69,70,3 
2: 32,32,32,:62,196 

300 FOR 1=16344 TO 14383 

L LOAD(I,N):: NEXT I 

310 ! 

2320 ! Code objet 

330 ! 

340 DATA 0,2,2,6,3,255, 
293,:255,0,0,2,0,93,32,4, 

55,259 

350 DATA 210,76,38,2,7,137,209,224,38,3,9 
,135,200,7,38,6,208,160,38,3,9,130,2,13 
00,191 

360 DATA 21,54,2,10,0,191,98,130,208,160, 


“ 


LL LOAD(81746,63,214) 


i 

1 

' 

1 

' 

' 

1 

. 
ALL INIT 

1 

1 

! 
‘À 

: 


References externes 


R4 ,RS 
ALIGNEA , R4 
R4,8 
R4,32 
L3 
R4 
L3 
R4,3 
ALIGNED+1 ,Ré 
Ré,8 
Ré,24 
L3 
Ré 
L3 
Ré ,Ré 
L4 
R4,256 
Ré 
LS 
LI  R2,TIMAGE 
MOUV RS5,RQ 
A R4,R2 
LI R3,8 
BLWP 9USBR 
MOUB R1,#R2+ 
INC RO 
DEC R3 
JNE L? 
e ARETOUR 
DATA 0 
END 


7:130,2,:130,0,191,21,45,2,8,0,191, 


ATA 200,8,38,8,4,204,2,5,0,1,2,6,0,1 
01,17,1,16,2,5,5,5,7,193,199,22,1, 


DATA 98,10,17,1,16,2,5,6,5,8,192,9,19 
2,74,193,1,10,84,225,1,2,68,255,7,161,0 
,2,64 

390 DATA 0,7,97,0,2,3,128,0,11,3,249,3,38 
,10,136,9,38,6,22,4,136,10,38,8,22,1,16 
,41 

400 DATA 195,12,17,3,142,69,99,8,16,228,1 
62,134,163,7,16,225,2,0,38,10,4,240,2,1 
28,62,10 

410 DATA 19,27,16,251,208,32,38,2,9,128,2 
08,160,38,3,9,130,2,130,0,191,21,17,2,1 
,0,191 

420 DATA 96,66,193,1,10,84,225,1,2,68,255 
51:161,0,2,68,0,7,97,0,2,3,128,0,11,3,2 
49,3 

430 DATA 38,10,4,96,63,164,2,1,160,104,2, 
0,3,0,2,2,45,0,4,32,32,44,2,1,62,10,192 
,49 

440 DATA 17,3,4,32,32,48,16,251,2,0,27,0, 
2,1,208,0,4,32,32,32,2,0,24,0,192,64,6, 
193 

450 DATA 4,32,32,32,5,128,2,128,27,0,22,2 
48,2,0,32,0,2,1,188,0,4,32,32,32,5,128, 
2,128 

460 DATA 56,0,22,250,4,192,2,1,38,10,2,2, 
24,0,4,32,32,36,4,32,32,28,152,32,131,1 
17 

470 DATA 62,22,22,250,2,1,62,26,192,49,17 
13:4,32,32,48,16,251,2,0,3,0,2,1,160,10 
4,2,2 

480 DATA 45,0,4,32,32,36,2,0,2,255,2,1,12 
8,0,4,32,32,32,6,0,24,252,4,192,216,0,1 
31,124 
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490 DATA 4,91,207,32,38,2,9,132,2,132,0,3 
2,18,44,2,5,4,0,2,132,0,143,27,39,2,36, 


255,224 


500 DATA 10,52,161,468,209,32,38,4,9,132,2 
,122,0,32,27,29,6,4,23,27,10,52,209,160 


,38,2 


510 DATA 9,134,2,134,0,24,27,20,6,6,23,18 


8,10 


520 DATA 1972,T,1640, 


,220,129,5,128,6,3, 


540 


.193:194,19,4,2,96:1,0,6:6,22,252,2,2,3 


Mon T!I se bloque parfois 
spontanément, soit en Cours de 
programmation, soit à l'exécution 
d'un programme, même avec un 
module comme celui des échecs. 
Ce blocage semble 5e produire 
Jors de /2 frappe de ENTER). 
L'écran affiche a10rs des 
“dessins”, barres ou autre, de 
différentes couleurs. Ou, tout 
simplement, le pornteur disparait 
et il est impossible d'entrer quoi 
que ce soft. 

Cet incident se manifeste même 
parfois à l'allumage de Ja 
console. Existe-t-il un remêde ou 
une explication ? 


Lucien Gruny - &, rue Vitalis - 
13005 Marseïlle 


Votre problème provient certainement 
dune mauvaise liaison entre les 
modules et la console. Vous pouvez 
essayer de nettoyer les contacts 
placés sur le connecteur des modules 
avec un coton-tige imbibé d'alcool. Si 
les pannes persistent, il faudra faire 
changer le connecteur par le service 
après-vente. 


Dans le catalogue dEASY BUG 
(Mini-mémoire) il] existe deux 
options pour enregistrer où 
charger des programmes en 
Assembleur sur cassette. C'est 
bien joli maïs, lorsque Jon 
possède un lecteur de disquettes, 
comment fait-on pour enregistrer 
des programmes ? 


L'option ‘LOAD and RUN” permet 
de charger des programmes, mais 
avpaeravant il à bien fallu les 
enregistrer ! 
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530 FOR I1=15882 TO 1 
L LOAD(I,N):: 
FOR 1=-24574 TO -24473 
ALL LOAD(I,N):: NEXT I 


NEXT I 


Courrier des lecteurs 


> 


Avec la Mini-mémoire, il n'est pas 
possible de transférer simplement des 
codes objet vers une disquette. Si vous 
disposez de l'éditeur/assembleur et du 
désassembleur publié dans le numéro 5 
de ‘99 Magazine, vous pouvez 
employer la méthode suivante : 


e charger le programme depuis la 
cassette avec £ASF BUG, option 
charger le désassembleur; 
désassembler le programme à 
transférer en indiquant un fichier 
sur disquette comme destination; 
charger l'assembleur et réassembler 
le programme, qui se trouvera 
dorénavant sur disquette. 


Si vous ne possédez pas 
l'éditeur/assembleur, il faudra écrire 
une routine de transfert ou attendre 
celle que nous publierons 
prochainement. 


Le désassembleur en 255sembleur 
que vous avez publié dans le 
numéro 5 de ‘99 Magazine” 
comporte une erreur (pas bien 
grave !) très facile à corriger. 

A Ja  troïsième  /igne du 
Ssous-programme appelé FVI/// 
(page 28, en haut de /a colonne de 
gauche), Î] faut remplacer 
l'instruction MOV @REGPP+4 R4 
par MOV @REGPP+8,R4 Ajnsi, les 
instructions STWP et STST sont 
désassemblées correctement, 
alors que l'opérande trouvé était 
toujours R/2, quelle que soit la 
valeur Correspondante dans le 
code à désassembler. 

On peut aussi en profiter pour 
intervertir les commentaires 
précédant les Sous-programmes 
FVI//2 et FVII//, gui ne sont pas 
à leur p/ace. 


Alexandre Puback 


C'est en utilisant le programme 
pour désassembler les &8Ko de /3 
ROM moniteur (ce qui ne prend 
guëre plus de trois minutes...) 
que j'ai remarqué cette erreur. 
J'espère que ce fectificatif 
profiterg aux ‘bricoleurs de 
système”, pour lesquels ce 
désassembleur est un  outi/ 
essentiel. 


Jean Penné - 26, rue de /a Chasse 
- 93130 Noïsy le Sec. 


Nous vous remercions et vous 
félicitons pour la découverte de ce 
"bug qui nous avait échappé. 


J'ai une petite remarque à vous 
faire et quelques questions à 
vous poser au Sujet de votre 
programme de désassemblage. 


Quand on désaessemble un 
programme où Une routine sur 
fichier disquette, /es 
mnémoniques apparaissent en 
sixième position sur la ligne, les 
cing premières étant réservées à 
l'étiquette plus un espace. Si l'on 
désire à ce moment là Incorporer 
une étiquette de six caractères, 
il faut décaler /a ligne de 2 
espaces, le reste dy source 5e 
trouvant alors décalé d'autant. 

Je 5ars que C'est 5ans importance 
pour le réassemblage, mais ce 
n'est pas três beau ni bon pour /a 
lisibilité. 

Je pense que vous recherchez 13 
perfection dans vos programmes 
et cela méritait d'être signalé 
Jai effectué les modifications 
nécessaires au niveau du tampon 
TLIGNE, !/ y à largement Ja p/ace 
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DOUT pouvoïr décaler les 
mnémoniques de deux espaces 
vers /8 droite, sans toucher à a 
position des autres données. 


Je travaille absolument seu! et 
mes seules références sont : la 
documentation Texas (en 
anglais 1) l'initiation â 
l'essembleur de Denise Amrouche 
et vos programmes qui sont pour 
moi Une véritable mine d'or. 


Je “décortique” en ce moment vos 
programmes  ‘MASTERMIND" et 
"DESASSEMBLEURT C'est 2b50- 
lument fantastique les astuces 
que je découvre; tous les jours 
j'en trouve de nouvelles ! Si Ja 
totalité dy Mastermind me paraît 
claire, 11 y à deux choses qui me 
chiffonnent dans le 
désassembleur. £n effet, pourquoi 
réserver 54 octets pour le b/oc 
d'accès aux périphériques a10ors 
que le plus grand mot à écrire ne 
peut dépasser 20 caractères pour 
une imprimante Série avec 
guelgues paramètres ? Ce qui 
fart, avec les dix octets réservés 
aux arguments du fichier, un 
maximum de JO octets. à 
aurait-il possibilité de rajouter 
d'autres paramètres ? 


Je cherche en ce moment à écrire 
Sur imprimante une ligne tirée 
d'un fichier disquette, comment 
passer les paramètres pour P10 
(caractères compressés, dilatés, 
etc.) 


Serait-ce dans cette partie libre 
du PAB où à partir d'un tampon 
quelconque ? 


Dans V8 routine d'ouverture dv 
fichier, vous allez chercher une 
adresse dans la GROM/GRANM en 
> 9802 immédiatement après avoir 
chargé la longueur du nom d 
périphérique utilisé, adresse qui 
réapparaît dans la routine 
RETOUR Je n'arrive pas à 


“ 


déterminer /a nature de cette 
adresse dans les explications 
anglaises; qu'en est-i/ 
exactement ? 


Je constate dans vos articles que 
vous vous centrez beaucoup sur 
l'utilisation de routines en 


assembleur à partir du Basic, et 
rarement à partir du Basic 
Etendu Ce module poserait-i/ 
certains problèmes. 


Pour conclure, je ne manquerais 
pas de vous dire que votre revue 
est pour moi quelque chose 
d'indispensable, n'ayant aucune 
autre Source d'information 
sérieuse à me mettre 5ous /3 
dent. 


Miche! Teyssou - Arbus - 64230 
Lescar. 


Au sujet de la position des codes 
mnémoniques, il y a plusieurs 
explications au choix que nous avons 
fait : 


e Si l'on décale les codes de 
deux positions, chaque 
enregistrement sur la disquette est 
augmenté d'autant. Cela n'est pas 
grave pour un petit fichier mais, 
pour 500 enregistrements, cela fait 
1000 octets de plus... 


e Le tampon utilisé pour l'affichage 
sur l'écran étant le même que celui 
utilisé pour les périphériques, il 
n'était pas possible de décaler les 
mnémoniques sans perdre d'autres 
informations à l'écran, à moins 
d'écrire une routine de modification 
du tampon“elon l'organe de sortie, 
ce qui était peut être une 
complication inutile. 


L'occupation du tampon étant 
calculée au plus juste, il est fort 
probable que, si vous décalez les 
codes mnémoniques sans décaler 
d'autant les adresses, la fin d'une 
instruction utilisant le mode 
d'adressage symbolique indexé par 
un registre supérieur à 9 pour les 
deux opérandes (MOVB @>A000 (R10) 
,@>A002 (R11), par exemple) sera 


écrasée par l'adresse de 


l'instruction. 


Le bloc d'accès aux périphériques n'est 
pas vraiment surdimensionné. Pa 
exemple, Si nous prenons : 
RS232/2.BA=9600 .DA=6.PA=E , TU.NU.CH 
.EC.CR.LF 

cela nous fait 43 octets plus les 1C 
octets pour les arguments du fichier, 
soit 53 caractères. Le 54ème octet est 
seulement là pour obtenir un nombre 
pair (pas indispensable en mémoire 
vidéo mais c'est une bonne habitude 
avec un processeur 16 bits). 


IL nous est impossible d'analyser le 
gestion des périphériques er 
assembleur dans le courrier des 
lecteurs. Par contre, vous trouverez 
dans le prochain numéro un article 
détaillé sur ces techniques. 


Lorsque l'on vient du Basic (ou du 
Basic Etendu), il est bon de revenir à 
la bonne adresse. L'interface RS232 
modifie cette adresse; il faut donc la 
Sauvegarder avant d'adresser le 
périphérique en question. L'adresse 
>9802 (GROM Read Address Register) 
pointe sur notre adresse de retour et 
est auto-incrémentée, tout comme les 
adresses de lecture et écriture en 
mémoire vidéo. 


HOUB e>9602,eRET * sauvegarde le 
poids fort de 
l'adresse 

NOUB e>9602,eRET+1* sauvegarde le 
poids faible de 
l'adresse 

DEC eRET * puisque >9802 est auto- 

incrémentée, on décrémente 
@RET de 1 pour obtenir 
* l'adresse réelle. 


Le Basic Etendu ne fait pas toujours 
bon ménage avec l'assembleur 
certaines routines n'existe pas 
(DSRLNK par exemple) et le Basic 
Etendu utilise la partie haute de 
l'extension 32Ko. Ceci explique notre 
préférence pour le Basic TI. Malgré 
tout, vous trouverez dans ce numéro 
une version ‘Basic Etendu” des 
routines graphiques. 
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Carte P-Code et compilateur Pascal 
(02/84) vendu 2600 F ou échange 
contre imprimante GP100A avec câble 
T1-99/4A. M. Allot - 169, cours Emile 
Zola -69100 Villeurbanne - 16 (7) 
885.00.77 - heures de bureau. 


Vends  TI-99/4A, Basic  Etendu, 
Mini-mémoire, Parsec, Chisholm Trail, 
Carwars, Tombstone City, Return to 
pirate isle, câble cassettes. 3650 F. 
(1) 655.10.12 après 18H. 


Cherche personne qui pourrait cédé 
synthétiseur de paroles (PHP 1500) 
avec, si possible, le module “Speech 
editor, ou à bas prix. Thierry 
Hocreïtere - 23, rue Paul Schleiss - 
51100 Reims. 


Recherche plan de mémoire vive pour 
T1-99/4A. Philippe Escaich - Lescure - 
09420 Rimont. 


Recherche module “Adventure” et 
“Echecs”. Frédéric Sabatier - Durandeau 
- 33440 Ambares - (56) 38.94.21. 


Vends TI-99/4A (12/83), manettes de 
jeux, câble magnéto, “Munch Man’, 
Echecs”, 12 livres, 10 cassettes 
programmes. 2000 F. Christophe 
Rappeneau - 107, Avende du 8 mai 
1945 - Coulanges les Nevers - 58640 
Varennes-Vauzelles. 


Vends T1-99/4A, modulateur 
SECAM/UHF, magnéto compatible TI 
(thomson avec compteur), câble 
magnéto, manettes de jeux, sept livres 
pour TI, six modules dont Parsec, 
Tombstone City, etc, cassettes jeux 
rétro | et 11, synthétiseur de paroles, 
module Basic: Etendu avec cassette 
"Basic Etendu par soi-même. Prix à 
débattre. (94) 9432.77 HR. 


Vends TI-99/4A, boîtier d'extension, 
carte 32 Ko, carte RS232, Basic 
Etendu, synthétiseur de paroles, 
manettes, câble magnéto, quatre 
modules de jeux. L'ensemble : 8000 F. 
Jean-Louis Borel - le Val Romain A - 
Impasse Romain - 83000 Toulon - (94) 
31.01.07 après 20h. 


Vends TI-99/4A, cassette Basic, 


modules Foot, Invaders, Parsec, cordon 
magnéto. 1800 F. René Wiard - 13, 
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Quartier Pichard - Appartement 5011 - 
93700 Drancy. (1) 831.30.70. 


Recherche carte contrôleur, lecteur de 
disquettes intégré, synthétiseur et 
éditeur de paroles. Alain Couegnat - 
66, rue du Repos - 69007 Lyon. 16 (7) 
858.21.16. 


Vends TI-99/4A, module “Basic 
Etendu”, Mini-mémoire, Echecs, 
manettes de jeux, livres sur TI-99, 
programmes sur cassèttes. 4000 F. 
Georges Mouchot - 159 La Chaud - 
43120 Monistrol sur Loire. 


Urgent : vends Mini-mémoire + Manuel 
200 pages en français (875 F), Burger 
Time, Speech Editor (215 F). TI 
Inveders, Carwars, Zerozap (160 F), 
Music Maker (275 F), 2 cassettes TI 
(90 F), livres et revues (5*17 F). 
Calogero - 28, lot Le Gat - 31490 
Pibrac. (61) 86 02 75. 


Echange carte 32 Ko neuve avec 
documentation contre TI Writer ou 


autre logiciels ou accessoires. René 


Giustini - 58, rue des Varennes - 
45650 St Jean le Blanc. (38) 66.21.39. 


Cherche module “Aventure”. François 
Bronnec - la Croix des Essarts - 
Saint-Roch - 44160 Pont Chateau. 


Achète Editeur/Assembleur, Pascal, 
Speech Editor, TI Logo. Etudie toutes 
propositions. Gérard Diebold - 27, 
Avenue Lacassagne - 69003 Lyon - (7) 
233.61.06. 


Vends  TI-99/4A (2/83),  cäble 
cassettes, nombreux livres et revues, 
lecteur de cassettes, manettes, très 
bon état. 1100 F. Nombreux jeux, prix à 
la carte. J. Planté. (1) 916.09.60. 


Editeur/Assembleur avec 
pour TI-99/4A Docteur R. 
26, rue du Colonel de 

31240 L'Union (61) 


Cherche 
manuel 
Savigny - 
Marmare - 
74.32.02. 


Vends module de jeu “Parsec”, 200 F. 
Pierre Druet - 58, rue Chateau-Jeannot 
- 57100 Thionville. 


Cherche modules ‘Basic Etendu”, 
“Parsec”. Vends ou échange module 
"Tombstone City” et cassette “Basic 


Petites annonces (gratuites) 


Etendu par soi-même”. Philippe 
Menevis - 6, rue des Muriers - 31500 
Toulouse. (61) 20.57.51. 


Vends TI-99/4A, manettes, cordon K7, 
carte 32Ko, Basic Etendu + manuel 
français, Logo, Munch Man, Echecs, 
cassettes (Basic par soi-même, aide à 
la programmation, conseil financier, 
jeux rétros | et Il, jeux d'entreprise, 
99 Magazine N° 2 et 3), livres 
(Initiation à l'assembleur, pratique de 
l'ordinateur familial N° 2, jeux et 
programmes N° 3, exercice TI, 5 
numéros de 99 Magazine, schéma 
technique). Le tout 4800 F (valeur 
6400 F). 

Achète contrôleur et 
disquettes et carte 
55.09.49 après 18h. 


lecteur de 
RS232. (89) 


Recherche contrôleur et lecteur de 
disquettes ainsi que le manuel 
d'accompagnement. Christian Faye - 6, 
Avenue du Maréchal Lyauthey - 94130 
Nogent sur Marne. 873.67.29 (domicile) 
346.30.11 (bureau). 


Achète, bon prix, carte contrôleur de 
disquettes, ou cherche possesseur pour 
renseignements et duplication. Possède 
solides connaissances en électronique. 
Cherche aussi photocopies du manuel 
du “Terminal  emulator II” (1 
Franc/page). Docteur M. Taoufig - 112, 
résidence Guy Mollet - 59221 Bauvin. 
(20) 86.42.61. 


Achète TI Logo | ou Il et Early Logo 
learning fun. Faire offre à Béguin - 
route nationale 96 - Napollon - 13400 
Aubagne. (42) 03.73.60. 


Vends Mini-mémoire avec manuel 
français, opération fromage (115 F), 
Burger Time (200 F), Moon Sweper (200 
F), Speech editor (200 F), TI Invaders, 
Car wars, Zerozap (170 F), 2 K7 (80 F), 
Musik maker (299 F), livres et revues 
(5/18 F). Monsieur Calogero - 28, lot le 
Gat - 31490 Pibrac. (61) 86.02.75. 
Urgent. 


Vends extension mémoire Socrelec 
16Ko (adresses >B800 à >F7FF) 
utilisable sans restriction avec 
l'assembleur de la Mini-mémoire (et 
aussi avec le Basic Etendu, mais sans 
cassettes) 3000 FB ou 450 FF. Georges 
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Dejolier - 20, rue Mercator - B-1070 
Bruxelles. (32.2) 522.58.18. 

Vends boîtier périphérique, carte 
RS232, carte 32Ko. Le tout état neuf, 
jamais servi. 3800 F port compris. (26) 
82.69.48 ou (26) 02.69.48 après 18 h. 
Vends Mini-mémoire (750 F), TI Logo Il 
(750 F), carte RS232 + Terminal 
Emulator II (2600 F), Synthétiseur 
vocal + Speech Editor (1800 F), Parsec 
(200 F), Munch Man (200 F), Cars Wars 
(200 F), Blasto (200 F), Tombstone 
City (150 F). Bruno. (1) 534.85.13. 
Vends TI-99 Juin 83, manettes de jeu, 
cordon magnéto, Basic par soi-même, 
Indoor Soccer, Alligator Mix. 2000 F. 
Bernard Cardon - 9, rue Félix Cadras - 
62640 - Montigny-en-Gohelle. (21) 
152351. 

Recherche plans pour RS232, pour 
liaison entre TI-99/4A et MODEM. 
Didier Guillon - 2, rue du 8 mai 1945 - 
38190 Crolles. 

Vends TI-99/4A, lecteur et contrôleur 
de disquettes, synthétiseur de parole, 
carte 32Ko, 10 logiciels (dont 
assembleur et Basic Etendu). 7000 F. 
Alexandre Goldszal - 9, rue de Douai - 
75009 Paris. 280.33.43. 

Recherche boîtier d'extension, carte 
mémoire 32Ko, module Editeur / 


Assembleur, synthétiseur de paroles, 
module Speech Editor. À Winners - 
Fawetay 27 - 4804 Jalhay - Belgique. 
Cherche module “Echecs” en français, 
module "Music Maker”, synthétiseur de 
parole, cassette “Le Basic Etendu par 
soi-même". Henri Espi - Résidence ‘le 
Poséidon" - 66750 Saint Cyprien Plage. 
(68) 21.22.12 le soir. 

Vends TI-99/4A, boîtier d'extension, 
carte mémoire 32Ko, interface RS232, 
contrôleur de disquettes, lecteur de 
disquettes, programmes divers. 
Matériel état neuf. Prix à débattre. (1) 
751.42.66 après 20H30. 

Vends TI-99/4A avec magnéto Texas, 
manettes de jeux, modules “"Munch 
Man”, “Hustle”, “Alpiner”, “Blasto” et 
"Cars Wars” ainsi qu'un livre de 
programmes et une cassette "99 
Magazine”. Acheté 12/83. 2000 F. 
353.10.15 après 17H30. 

Recherche module Basic  Etendu, 
Extension 32Ko, interface et 
programme pour faire du TELETYPE et 
de la TELEGRAPHIE avec TI-98. 
Monsieur Mismetti - La Tour - 73140 
St Martin la Porte. (79) 56-65-64. 
Achète RS232, modules "TI-Writer” et 
"Terminal Emulateur 11", synthétiseur 
de paroles. Patrice Jean - 8, place du 
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BULLETIN D’ABONNEMENT 


Je désire recevoir pour le N° [|] de 99 magazine 
[_]le numéro avec cassette 
[_]le numéro sans cassette 
[_] la cassette’ seule 


Je désire m'abonner pour 4 numéros 
à partir du N° [| 


[_] avec cassette 
[_] sans cassette 


Chemin de Ronde - Appartement 200 - 
78340 Les Clayes sous Bois. 055.28.65 
après 19H00. 

Vends 3900 F : TI-99/4A avec 10 
modules (dont Parsec et Gestion de 
fichiers), module Basic Etendu, cordon 
magnéto et manettes de jeux. Avec 14 
livres (dont assembleur) et 2 
cassettes. (1) 6562254 Vends 
imprimante Mannesman Tally (liaison 
série). 3000 F. S'adresser au journal, 
qui transmettra. 

Vends TI-99/4A, boîtier d'extension, 
carte 32Ko, contrôleur et lecteur de 
disquettes, Assembleur, Basic Etendu, 
manettes de jeux, cordon magnéto, 
Echecs, Parsec, livres (initiation à 
l'assembleur, jeux pour le TI), 
disquettes  (Routines graphiques, 
Désassembleur, programmes divers), 
cassettes (rubis sacré, introduction 
aux jeux). 9500 F à débattre. 457.71.91 
après 18h. 

Cherche  Editeur/Assembleur, Mini- 
mémoire, Terminal Emulator II et, 
éventuellement, d'autres modules. 
Alain Crozet - 15, rue B. Palissy - 
16340 l'Isle d'Espagnac. (45) 69.02.96. 
Cherche module TI Writer et interface 
série Texas Instrument. Faire offre au 
journal, qui transmettra. 


S2aF-TIC 
199,F TIC 


Ces tarifs comprennent l’envoi postal en France Métropolitaine et CEE (voie aérienne exceptée) 
Envoi par avion : + 40 F pour un abonnement - + 10 F pour un numéro seul 


Envoyez ce bon de commande et votre règlement à : 
Editions MEV - 64-70, rue des Chantiers - 78000 Versailles 
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0 HF # LE JOURNAL ” 
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Æ EE D 5 DE PROGRAMMATION 
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programmer 
= unordinateur est 
| devenu pour vous 
un loisir, un plaisir... 
une passion, sachez que LIST a été créé 
pour vous. LIST vous aide à tirer davantage 
de votre matériel, à vous perfectionner 
dans la conception des programmes 


qui “tourneront” sur votre machine. 
LIST vous initie aux langages informatiques 





et sélectionne les meilleurs livres pour DC 
progresser. LIST vous informe de l'actualité D 
et vous fournit trucs, astuces et idées : 
pour mieux programmer... : BULLETIN . 
Pour être sûr de ne rater aucun numéro D'ABONNEMENT 
et pour recevoir LIST chez vous, CR RASE | 
abonnez-vous ! 5, place du Colonel-Fabien, 


75491 Paris Cedex 10 


Nom : 
Adresse : 
Ville : 


Code postal:l 1 1111] Pays: 


HT FR AM M E R / Veuillez m'abonner pour 10 numéros au prix 


sournauX : avantageux de 160 F* au lieu de 200 F. Je fais ainsi 
d de jou / une économie de 40 F sur le prix de vente au numéro. 


p° 
20FC sl à 5 aie Se Le indispensable libellé 


© + Belgique : 1330 FB; Suisse : 50 FS: Canada : 30 $C: 
autres pays : 210 FF 


“Le cadeau d'Atari 
à tous les possesseurs de VIC 20, 
Commodore 64 , Apple Il et TI 99/4A. 
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Avec os 13 des plus FnénRs stars dAtari: 


Même si vous n’avez pas d'ordinateur Atari, Atarisoft vous permet désormais de 
découvrir les programmes Atari les plus célèbres : Pac-Man, Centipède, Jungle Hunt 
Pôle Position, Galaxian, Miss Pac-Man, Joust, Moon Patrol 


Dig-Dug, Donkey Kong, Robotron 2084. Defender, Stargate. ATARISOFT 





